Daf (Normal User)
Pro
Messaggi: 78
Iscritto: 27/06/2009
|
Dovendo utilizzare un memo su delphi mi sono trovato a dover far apparire le scrollbar solo quando č necessario:
Codice sorgente - presumibilmente Delphi |
procedure TForm1.MChange(Sender: TObject); var Pos: TPoint; begin Pos := M.CaretPos; if(M.Lines.Count * -M.Font.Height > M.Height)then M.ScrollBars := ssVertical else M.ScrollBars := ssNone; M.CaretPos := Pos; 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?
|