Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.12;
Скачать: CL | DM;

Вниз

Програмная реализация процесса стыковки, 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-35734
AFROLOV
2002-08-30 12:34
2002.09.12
Как передать интерфейс в качестве параметра?


1-35662
Olorin
2002-09-02 10:29
2002.09.12
Как получить дескриптор окна..


1-35652
Cr@sh
2002-09-01 10:36
2002.09.12
Только для настоящих мастеров:сохранение Битмапа и Лайнс в оди...


1-35721
Begin
2002-09-01 03:46
2002.09.12
Простой вопрос про Drag


3-35565
OGR
2002-08-21 19:55
2002.09.12
Объединение 2-у х БД