Synchroniser le Scroll de deux Memos
Bonjour,
Newbie sur Lazarus. J'essaie sans succès de synchroniser deux Memos :
Code:
1
2
3
4
5
6
7
8
|
procedure TForm1.memo1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
memo2.VertScrollBar.Position:= memo1.VertScrollBar.Position;
// memo2.setFocus ;
// memo2.refresh ;
end; |
Quand je fais rouler la molette de la souris sur memo1, l'ascenseur du memo2 est bien synchrone, mais le texte ne défile pas :?
J'y suis presque là, non ?
Ne peut-on pas indiquer à un Memo sur quel n° de String se positionner ?
