So, ich hab mich jetzt mal ein bisschen dahintergeklemmt. 8)
Also, ich habe folgende Klassen:
Code:
TCustomFormEx (Basis-Klasse, in der die Properties registriert werden)
|
V
TFormEx (Klasse mit
dfm-Datei, einige Komponenten)
|
V
TForm1 (das Formular, was letztendlich aufgerufen wird)
Die Methode ist folgendermaßen implementiert:
Delphi-Quellcode:
constructor TCustomFormEx.Create(AOwner: TComponent);
begin
FSingleInstance := True;
inherited;
if not (csDesigning in ComponentState) and FSingleInstance then
//wenn schon Instanz vorhanden, dann abbrechen und vorhandene Instanz in den Vordergrund holen
end;
Es scheint richtig zu funktionieren, ist das denn auch korrekt so?