Текущий архив: 2003.02.17;
Скачать: 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 вся ветка

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

Наверх

Память: 0.46 MB
Время: 0.019 c