Форум: "Основная";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Вниз
Перемещение окна Найти похожие ветки
← →
Victor456 (2007-06-25 15:59) [0]Как мышью перемещать окно за компонент Image?
← →
AleksandrR © (2007-06-25 16:10) [1]В Image обработай событие OnMouseDown и пропиши код
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
← →
clickmaker © (2007-06-25 16:18) [2]type
TForm1 = class(TForm)
...
procedure OnWMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
...
procedure TForm1.OnWMNCHitTest(var Msg: TMessage);
var pt: TPoint;
begin
pt.x := Msg.LParamLo;
pt.Y := Msg.LParamHi;
pt := ScreenToClient(pt);
if ControlAtPos(pt, true) = Image1 then
Msg.Result := HTCAPTION
else
DefaultHandler(Msg);
end;
← →
StriderMan © (2007-06-28 12:16) [3]
> Как мышью перемещать окно за компонент Image?
покрепче хватай двумя курсорами, ногой в монитор упрись и тяни
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c
