Zitat von
Muetze1:
Da stellt sich für mich die Frage: Woher nimmst du die vorhandene Instanz? Weil in den Klassenroutinen hast du ja, egal in welcher Ableitung du bist, immer nur die aktuelle, zu erzeugende Instanz. Wo sicherst du dir einen Instanzpointer der ersten Instanz?
Ich mach das so (klappt noch nicht so ganz, weil das Formular kurz aufblinkt und dann wieder zerstört wird):
Delphi-Quellcode:
constructor TCustomFormEx.Create(AOwner: TComponent);
var
i: Integer;
Form: TForm;
begin
FSingleInstance := True;
inherited;
Form := nil;
if not (csDesigning in ComponentState) and FSingleInstance then
for i := 0 to Pred(Screen.FormCount) do
if Screen.Forms[i].InheritsFrom(Self.ClassType) and
(Screen.Forms[i] <> Self) then
begin
Form := Screen.Forms[i];
Break;
end;
if Assigned(Form) then
Abort;
end;
Zitat von
Muetze1:
Ansonsten ist dein Ansatz schon nicht schlecht, aber leider zu früh, denn der reine Constructor wird wie gesagt vor dem Laden der Eigenschaften aufgerufen.
IMHO sind die Eigenschaften im FormCreate vorhanden, daher könntest du da mal ansetzen...
Nein, diesmal bist du leider auf dem Holzweg, weil im Konstruktor von TCustomForm die DoCreate-Methode aufgerufen wird, und dadurch werden die OnCreate-Methoden abgehandelt.
Also bleibt jetzt noch das Problem, des kurzen Erscheinens des Formulars. Das Problem ist: ich kann es nicht Visible auf False setzen, weil es ein MDIChild-Form ist.