Form.OnLeave(...)
_Ed_ © (2002-12-06 21:51:00)
Господа мастера, я пробую силы в KOL, и теперь ваш частый
гость!
Возникла проблема: событие OnLeave (как я понимаю - это
аналог OnDeactivate в VCL) главной формы не происходит при потере
фокуса.
В чём тут может быть проблема и как её решить?
Gandalf (2002-12-06 22:58:00) [1]
> Господа мастера, я пробую силы в KOL, и теперь ваш
частый
> гость!
> Возникла проблема: событие OnLeave (как я понимаю - это
> аналог OnDeactivate в VCL) главной формы не происходит
при
> потере фокуса. В чём тут может быть проблема...
Не реализованно! Т.е. либо автор проглядел, т.е. забыл, толи
не стал. (А может я уже совсем засыпаю).
> ... и как её решить?
Можно так:
function TForm1.KOLForm1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
if Msg.message=WM_ACTIVATE then
begin
if LoWord(Msg.wParam)=WA_INACTIVE then
ShowMessage("Aha!");
end;
Result:=False;
end;
Наверх 
ЧАТ |
Орешник |
|
