Border Style

← →
Kwt (2005-02-26 14:20) [0]

Здраствуйте.
Скажите как двигать окна со стилем Bsnone;
Спасибо.

← →
TUser © (2005-02-26 14:22) [1]

Отловить WM_NCHITTEST и написать

inherited;
Msg.Result:=Msg.Result or htCAPTION;

← →
Antonn © (2005-02-26 16:08) [2]

В OnMouseDown. У меня бывало что и не срабатывало.

procedure TF_message.PB_topMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

← →
TUser © (2005-02-26 16:53) [3]

В случае [1] будет обработано только одно сообщение, а в случае [2] - целых два.

> Antonn © (26.02.05 16:08) [2]

А в OnMouseUp ничего не надо?

← →
Antonn © (2005-02-26 16:55) [4]

TUser © (26.02.05 16:53) [3]
вроде ничаго... А надо? Каптуре Отрелизить?

← →
TUser © (2005-02-26 17:28) [5]

Непонятно, как окно узнает, что больше не надо вслед за мышкой бегать.

Наверно когда будет MoudeUp :-)

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