Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Memo Scroll
Forum - Delphi - Memo Scroll

Avatar
Daf (Normal User)
Pro


Messaggi: 78
Iscritto: 27/06/2009

Segnala al moderatore
Postato alle 16:07
Giovedì, 10/12/2009
Dovendo utilizzare un memo su delphi mi sono trovato a dover far apparire le scrollbar solo quando è necessario:
Codice sorgente - presumibilmente Delphi

  1. procedure TForm1.MChange(Sender: TObject);
  2. var
  3.   Pos: TPoint;
  4. begin
  5.   Pos := M.CaretPos;
  6.   if(M.Lines.Count * -M.Font.Height > M.Height)then
  7.     M.ScrollBars := ssVertical
  8.   else
  9.     M.ScrollBars := ssNone;
  10.   M.CaretPos := Pos;
  11. end;


E poi posizionare il cursore nella giusta posizione...
Ho scoperto che il puntatore del memo si trova sempre 1 carattere + avnti o + indietro del punto giusto...
come faccio per risolvere questo problema?

PM Quote