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

Вниз

Drag&Drop не цепляясь за шапку окна.   Найти похожие ветки 

 
BuTyc   (2003-08-22 06:43) [0]

Как реализовать сабж? Может вопрос конечно и глупый, но нужно убрать шапку окна, и сделать возможным таскать окно цепляясь не за шапку а за само окно.


 
Lina   (2003-08-22 06:46) [1]

Обрабатывай MouseDown:
ReleaseCapture;
SendMessage(Handle,WM_SysCommand,$F012,0);


 
Rouse_ ©   (2003-08-22 06:47) [2]

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND, $F012, 0);
end;


Желаю успехов



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

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
1-10794
malamba
2003-08-21 14:35
2003.09.04
самый простейший вопрос - свой var на основе TStrings


14-10962
Е-Моё имя
2003-08-15 18:19
2003.09.04
Как бы рассказали


7-11009
AdMiRaL
2003-06-22 20:55
2003.09.04
Integracija s SHELL


3-10569
M126
2003-08-15 13:04
2003.09.04
Ошибка Query


1-10733
Miralex
2003-08-20 10:27
2003.09.04
События OnEdit OnClick и OnDragOver