Текущий архив: 2003.04.28;
Скачать: CL | DM;

Вниз

Окно Windows   Найти похожие ветки 

← →
Вопрос   (2003-04-16 13:11) [0]

Господа може ктонить знает как можно заставить окно перетаскиваться ухватившись не только за его заголовок но и за клиентскую часть

---

← →
Shirson ©   (2003-04-16 13:25) [1]

В ISAPI хелпе набери WM_NCHITTEST

---

← →
Yanis   (2003-04-16 14:58) [2]

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

Это позволяет двигать форму за любой компонент, а эта только за
клиентскую область:

procedure WMNCHitTest (VAR Msg : TWMNCHitTest); message WM_NCHitTEst;
....
....
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
Inherited;
if Msg.Result = htClient then Msg.Result:=htCaption
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.28;
Скачать: CL | DM;

Наверх

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