tito_livio:
Ciao a tutti, qualcuno sa come limitare il numero massimo di righe che l'utente può inserire in un dbmemo o in un memo. Ho cercato in giro ma non ho trovato soluzioni valide. Grazie in anticipo.
nomorelogic:
qualcuno se l'era già chiesto ;) ho trovato questo link sul forum ufficiale
quack:
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. :-\
tito_livio:
--- Citazione da: nomorelogic - Maggio 02, 2024, 05:23:42 pm ---qualcuno se l'era già chiesto ;) ho trovato questo link sul forum ufficiale
Avevo già visto questo thread e lì il problema sta nel limite massimo di righe che un memo può avere. In quel caso poi il memo era riempito da programma e non da un utente. Io vorrei soltanto "costringere" chi usa il programma a non superare, per esempio,quattro righe mentre scrive nel memo. Infatti il memo deve finire in una stampa di un documento che, insieme ad altre cose, deve occupare soltanto una pagina.
tito_livio:
--- Citazione da: quack - Maggio 02, 2024, 07:30:35 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. :-\
--- Termina citazione ---
Infatti, è quello che ho provato a fare. Ho inserito questo codice:
--- Codice: --- 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; --- Termina codice ---