Форум: "Потрепаться";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

Програмная реализация процесса стыковки, help!!!   Найти похожие ветки 

← →
Ыукпун   (2002-08-20 13:44) [0]

Подскажите, какой код ввести в событиях OnDockOver, OnGetSiteInfo и т. д., чтобы кнопка(Button) могла стыковаться с панелью(Panel)?? А то у меня не получается

---

← →
MBo   (2002-08-20 14:08) [1]

button1 dragkind dkdock
dragmode dmautomatic
panel1 docksite true

procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := (Source.Control = Button1);
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх

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