Текущий архив: 2005.03.13;
Скачать: CL | DM;
Вниз
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]Непонятно, как окно узнает, что больше не надо вслед за мышкой бегать.
← →
Anatoly Podgoretsky © (2005-02-26 17:32) [6]Наверно когда будет MoudeUp :-)
← →
Antonn © (2005-02-26 17:40) [7]TUser © (26.02.05 17:28) [5]
ну не знаю. Знаю что [2] работает и с одним Down
Страницы: 1 вся ветка
Текущий архив: 2005.03.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
