прорисовать линию между компонентами

← →
NORDmen © (2006-05-08 20:14) [0]

необходимо прорисовать линию между компонентами. как это можно сделать?
компоненты находятся в scrolbox, который не имеет canvas (создавать scrollbox с api канвасом не подходит :( )

← →
Pavia © (2006-05-08 20:34) [1]

procedure TForm1.Button1Click(Sender: TObject);
var dc:HDc;
begin
dc:=GetDc(ScrollBox1.Handle);
moveToEx(Dc,Button1.Left,Button1.Top,nil);
LineTo(Dc,Button2.Width+Button2.Left,Button2.Top+Button2.Height);
ReleaseDC(ScrollBox1.Handle,dc);
end;

прорисовать линию между компонентами Найти похожие ветки