Текущий архив: 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.019 c
