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

Вниз

Перемещение формы за Panel   Найти похожие ветки 

← →
Viktop   (2005-07-25 10:54) [0]

Перемещение формы за не только за Title Bar можно реализовать так:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
 inherited;
 if M.Result = htClient then
   M.Result := htCaption;
end;


А как перемещать за Panel?

---

← →
Алхимик ©   (2005-07-25 11:02) [1]

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  Self.Perform(WM_SYSCOMMAND, $F012, 0);
end;

---

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

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

Наверх

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