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

Как соорудить окошко типа PopUp   Найти похожие ветки 

← →
Still Swamp   (2005-11-02 11:57) [0]

Как соорудить окошко типа PopUp? Те я хочу что бы мое окно убиралось при клике мышей мимо него. Возможно для этого есть какой нить стиль в API.

---

← →
ShiFT   (2005-11-02 12:14) [1]


 TForm1 = class(TForm)
   procedure ACTIVATEProc( var msg : TMessage); message WM_ACTIVATE;
...
 end;
...

procedure TForm1.ACTIVATEProc(var msg: TMessage);
begin
 if LOWORD(msg.WParam) = WA_INACTIVE then begin
   Close;
 end;
end;
Проверенно. Работает.

---

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

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



Память: 0.44 MB
Время: 0.023 c