hi,
dass habe ich gerade selber gebraucht:
bischen googlen dann findet man meistens immer was :)
http://www.swissdelphicenter.ch/en/showcode.php?id=1775
Delphi-Quellcode:
type
//...
private
{ Private declarations }
procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
end;
implementation
//...
procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
inherited;
if M.Active then
caption:='Form active'
else caption:='Form not active' ;
end;
Am besten du lässt die Abfage weg
if M.Active then
und führst sofort dein Befehl aus, denn diese Abfrage dauert extrem lange...
Aso und für OnEnter würde auch ne Message nehmen:
http://delphi.about.com/cs/adptips20...ltip0703_5.htm
Und hier noch was eigenes.
http://www.delphipraxis.net/internal...534cf5fe10b022