1
Generale / Re:Limite massimo righe di un dbmemo o di un memo
« Ultimo post da quack il Oggi alle 09:25:22 pm »ok, ritorno sui tuoi passi allora:
dovremmo esserci.
C'è da capire se VK_ESCAPE è il tasto più appropriato e gestire un eventuale "paste" che sfora il numero massimo di righe.
Sto andando a tentoni se non si fosse capito
Codice: [Seleziona]
uses
LCLType;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Memo1.Lines.Count >= 5) and (Key = VK_RETURN) then
begin
Key := VK_ESCAPE;
end;
end;
dovremmo esserci.
C'è da capire se VK_ESCAPE è il tasto più appropriato e gestire un eventuale "paste" che sfora il numero massimo di righe.
Sto andando a tentoni se non si fosse capito