Скачать: CL | DM;

Перетаскивание окна   Найти похожие ветки 

← →
Kromag   (2003-01-06 17:33) [0]

Help me!!! Как перетащить окно программы за какой-нибудь (любой)элемент.

---

← →
MAN-IN-RED ©   (2003-01-06 18:32) [1]

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
Perform(WM_SysCommand,SC_DragMove,0);
end;

Или обрабатывать сообщение WM_NCHITTEST

---

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

Скачать: CL | DM;



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