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

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

← →
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.

---

← →
oduvan ©   (2002-08-17 19:48) [4]

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

---

← →
PaRL ©   (2002-08-22 14:13) [5]

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


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

---

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

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



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