Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.042 c