Как соорудить окошко типа PopUp [D7, WinXP]
Still Swamp © (2005-11-02 11:57:00)
Как соорудить окошко типа PopUp? Те я хочу что бы мое окно
убиралось при клике мышей мимо него. Возможно для этого есть какой
нить стиль в API.
ShiFT (2005-11-02 12:14:00) [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;
Проверенно. Работает.
Наверх 
ЧАТ |
Орешник |
|
