| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

NORDmen ©   (2006-05-08 20:14:00) 

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

---

Pavia   (2006-05-08 20:34:00) [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;

---

Наверх