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

Вниз

Form   Найти похожие ветки 

← →
JeM   (2002-11-20 07:52) [0]

Если я создаю несколько форм в run-time как их перетаскивать за всю область формы?

---

← →
apay ©   (2002-11-20 09:25) [1]

перехватить message WM_NCHITTEST, вместо HTCLIENT подсунуть HTCAPTION и обмануть windows

---

← →
BIN ©   (2002-11-20 10:00) [2]

А как это будет выглядеть? Так не получается :

procedure TForm1.ActionMessage (var Msg : TMessage );
begin
if msg.WParam = HTCLIENT then msg.WParam := HTCAPTION;
inherited;
end;


---

← →
Александр Павлов ©   (2002-11-20 11:33) [3]

procedure MyFormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
perform(WM_SysCommand, $F012, 0);
end;


...
NewForm.OnMouseDown := MyOnMouseDown;
...

---

← →
Игорь Шевченко ©   (2002-11-20 11:35) [4]

procedure TfRgnDialog.WMNCHitTest(var Message: TWMNCHitTest);
begin
Message.Result := HTCAPTION;
end;

---

← →
Vlad1 ©   (2002-11-22 21:02) [5]

>
> BIN



type Tform1=class(TForm)
......................
procedure AllMove(var Msg:TMessage);message WM_NCHITTEST;
......................

implementation
.....................
procedure TForm1.AllMove(var Msg:TMessage);
begin
inherited;
if Msg.Result=1 then Msg.Result:=2;
end;
</CODE
Нормально работает.

---

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

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

Наверх

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