| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Border Style
Kwt © (2005-02-26 14:20:00)Здраствуйте.
Скажите как двигать окна со стилем Bsnone;
Спасибо.
Antonn (2005-02-26 17:40:00) [1]TUser © (26.02.05 17:28) [5]
ну не знаю. Знаю что [2] работает и с одним Down
Anatoly Podgoretsky (2005-02-26 17:32:00) [2]Наверно когда будет MoudeUp :-)
TUser (2005-02-26 17:28:00) [3]Непонятно, как окно узнает, что больше не надо вслед за мышкой бегать.
Antonn (2005-02-26 16:55:00) [4]TUser © (26.02.05 16:53) [3]
вроде ничаго... А надо? Каптуре Отрелизить?
TUser (2005-02-26 16:53:00) [5]В случае [1] будет обработано только одно сообщение, а в случае [2] - целых два.
> Antonn © (26.02.05 16:08) [2]
А в OnMouseUp ничего не надо?
Antonn (2005-02-26 16:08:00) [6]В 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 14:22:00) [7]Отловить WM_NCHITTEST и написать
inherited;
Msg.Result:=Msg.Result or htCAPTION;
| |
