Перетаскивание формы

← →
PaRL © (2002-08-13 19:50) [0]

Я использую WM_NCHITTEST.
В VCL это выглядит так:
protected
procedure Hit(var M : TWMNCHITTEST); message WM_NCHITTEST;
end;

implementation
...

procedure Hit(var M : TWMNCHITTEST);
begin
inherited;
if Result = HTLIENT then Result := HTCAPTION;
end;

И всё работает, но в WiAPI нет inherited и системные кнопки заблокированы. Что делать?

← →
DiamondShark © (2002-08-13 19:59) [1]

DefWindowProc

← →
oduvan © (2002-08-13 20:38) [2]

старый прием:
в onMouseDown любого VCLника пишишь:

releaseCapture;
Form1.Perform(WM_SYSCOMMAND,$F012,0);

← →
PaRL © (2002-08-17 17:47) [3]

oduvan,
Раздел WinAPI называется, если ты не в курсе.

Shark, thanks.

WM_SYSCOMMAND - а это по твоему что VCL?

> старый прием:
> в onMouseDown любого VCLника пишишь:

Не твои слова скажешь >? :)

Перетаскивание формы Найти похожие ветки