1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
procedure TForm1.HautClick(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0) ;
end;
procedure TForm1.BasClick(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0) ;
end;
procedure TForm1.DroiteClick(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0) ;
end;
procedure TForm1.GaucheClick(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0) ;
end; |
Partager