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

Как перетаскивать форму   Найти похожие ветки 

← →
Pazitron_Brain ©   (2006-01-16 10:51) [0]

за главное окно. Т.е. перетаскивать хватаясь не за заголовок, а за любое место в окне?

---

← →
Gydvin ©   (2006-01-16 11:18) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
 var
pt : TPoint;
 begin
ReleaseCapture;
SendMessage(form1.Handle, WM_SYSCOMMAND, 61458, 0);
end;

---

← →
Gydvin ©   (2006-01-16 12:18) [2]

var
pt : TPoint;
Даже лишнее

---

← →
Johnmen ©   (2006-01-16 13:17) [3]

Лучше
Perform(WM_SYSCOMMAND, $F012, 0);

---

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

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



Память: 0.45 MB
Время: 0.05 c