1
Generale / Re:Limite massimo righe di un dbmemo o di un memo
« Ultimo post da tito_livio il Oggi alle 08:05:55 pm »Non saprei cosa suggerirti se non un banale check ogni volta che si digita qualcosa all'interno del TMemo.
Ma immagino sia la tua ultima opzione.
Infatti, è quello che ho provato a fare. Ho inserito questo codice:
Codice: [Seleziona]
procedure limita_righe_dbmemo(sender: tobject; max_lines: integer; var key: char);
begin
with Sender as Tdbmemo do
begin
if (CaretPos.Y >= max_lines) then
Key := #0;
if (key = CHR(13)) and (Lines.count >= max_lines) then
Key := #0;
end;
end;
procedure Tform1.DBMemo1KeyPress(Sender: TObject; var Key: char);
begin
limita_righe_dbmemo(sender,4,key)
end;
Ma non funziona bene.