Hallo erstmal!
Ich hab ein Problem und zwar:
Ich will, dass wenn ein bestimmtes Fenster geöffnet wird (nicht das eigene), dieses geschlossen wird.
Nun wollte ich die Screen.OnActiveFormChange meiner eigenen Prozedur zuweisen jedoch funktioniert dies nicht.
Hier mein Source:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Eins(Sender) := Screen.OnActiveFormChange(Sender);
end;
procedure TForm1.Eins(Sender: TObject);
begin
if screen.ActiveForm.Caption = Edit1.Text then screen.ActiveForm.Close;
end; |
Kann mir jemand weiterhelfen?
Danke
_________________
Fällt der Bauer tot vom Traktor, stand am Waldrand ein Reaktor.
Ein altes indianisches Sprichwort besagt:Es kann gefährlich sein gelben Schnee zu essen.
