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

Вниз

как передвинуть окошко?   Найти похожие ветки 

← →
Groove   (2002-06-13 14:03) [0]

Как передвинуть окошко передвигая не за строку заголовка, а, например, за панель??

---

← →
Игорь Шевченко ©   (2002-06-13 14:17) [1]

А зачем ?
Если очень хочется, то WM_NCHITTEST

---

← →
Groove   (2002-06-13 14:38) [2]

а поподробней? =) а то не доходит

---

← →
Игорь Шевченко ©   (2002-06-13 14:45) [3]

procedure TfAbstractDictionary.WMHCHitTest(var Message: TWMNCHitTest);
var
R : TRect;
begin
if pnlMoving.Visible then begin
R := pnlMoving.BoundsRect;
if PtInRect (R, ScreenToClient(SmallPointToPoint(Message.Pos))) then begin
Message.Result := HTCAPTION;
Exit;
end;
end;
inherited;
end;

---

← →
Agent Smith ©   (2002-06-13 14:48) [4]

Двигаем форму за всю плоскость формы:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button <> mbLeft then exit;
ReleaseCapture;
Form1.Perform(WM_SysCommand,$F012, 0);
end;


---

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

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

Наверх

Память: 0.47 MB
Время: 0.023 c