Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c