Синхронизация двух компонентов ScrollBox
Falk0ner, вс, 06/07/2008 - 15:34.
Решить задачу помогут обработчики событий OnScroll (в данном примере два компонента ScrollBar (ScrollBar1 и ScrollBar2) расположены на форме TMainForm):
procedure TMainForm.ScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar2.Position:=ScrollPos;
end;
procedure TMainForm.ScrollBar2Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar1.Position := ScrollPos;
end;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar2.Position:=ScrollPos;
end;
procedure TMainForm.ScrollBar2Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar1.Position := ScrollPos;
end;
Взято с http://delphiworld.narod.ru
какие нахрен скролбоксы когда это скролбары
Бестолочи! Переносят ахинею с сайта на сайт....
Отправить комментарий