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

Вниз

Перетаскивание окна(формы)   Найти похожие ветки 

 
Bers01   (2004-01-20 16:30) [0]

Добрый вечер УВАЖАЕМЫЕ МАСТЕРА!
Может поделится кто опытом, а еще лучше примерчиком:
Нужно чтобы окно(форма) перетаскивалось не только за заголовок, а за любую область(внутри окна), на которой его схватили.
Пробовал через MoveWindow(...) на onMouseMove, но при перемещении изображение сильно дергается. Подскажите кто знает.

С Уважением, Андрей.


 
easy ©   (2004-01-20 17:08) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  
 Shift: TShiftState; X, Y: Integer);  

begin  
ReleaseCapture();  
SendMessage(form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);  
end;


 
Bers01   (2004-01-20 17:28) [2]

Спасибо!


 
Diamond Cat ©   (2004-01-20 21:48) [3]

2 easy ©
А не проще result от wm_ncbuttondown ставить в htcaption


 
Prov ©   (2004-01-22 08:11) [4]

Я делал так:
обработать WM_NCHITTEST ??? +HT_CAPTION(точно не помню)


 
Thick   (2004-01-22 12:23) [5]

В MouseDown вставляеш SendMessage(wnd,WM_SYSCOMMAND, $F012, 0);


 
TUser ©   (2004-01-22 17:02) [6]


> HT_CAPTION(точно не помню)

Msg.Result:=htCaption


 
LukSerg   (2004-01-22 18:39) [7]

procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const  SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;


 
LukSerg   (2004-01-22 18:39) [8]

procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const  SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.046 c
3-1078929983
Nax
2004-03-10 17:46
2004.04.04
Преобразования типа TDateTime


14-1078851705
VDen
2004-03-09 20:01
2004.04.04
выделение подстроки на Perl


1-1079499645
artyom
2004-03-17 08:00
2004.04.04
Запуск программы при двойном щелчке по файлу в окне Explorer а


7-1074653880
msgipss
2004-01-21 05:58
2004.04.04
Узнать, установлен ли на компьютере Web Server ?


1-1079197102
Kuzmich
2004-03-13 19:58
2004.04.04
Обработка нажатия левой и правой кнопки одновременно