Форум: "Основная";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
Вниз
Окно 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c