Форум: "WinAPI";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизПеретаскивание окна(формы) Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.031 c