Komponente - Constructor MainForm.Hide = Access Violation???

[p.abend]

Hallo Deddy!

So scheint es zu funktionieren. Vielen dank an dich und alle anderen die mir geholfen haben.

[p.abend]

Also langsam bekomme ich graue Haare,

wieso funktioniert das...

Delphi-Quellcode:

..
Application.ShowMainform := false;
Application.Messagebox('irgendwas','Irgendwas', MB_ICONINFORMATION + MB_OK);
..

aber das...

Delphi-Quellcode:

..
Application.ShowMainform := false;
RegForm.Show;
..

nicht? Bekomme mit diesem Versuch immer eine Access Violation...

[cruiser]

Wenn die RegForm vor der MainForm angezeigt werden soll, warum löst du das dann nicht in der Projekt-Datei, wo ja auch die Mainform erzeugt wird?

[p.abend]

Ganz einfach, weil es darum geht, das die Komponente den Spaß regelt, ein zusätzliches editieren in Projekt Dateien oder Quellcode soll nicht notwendig sein.

Das muss doch auch irgendwie so zu lösen sein...

[cruiser]

Wenn die Compo auf der Mainform liegt kannst du die Mainform nicht verstecken, da die Komponente erzeugt wird noch bevor Mainform.OnCreate aufgerufen wird.

ABER: Die Form wird noch gar nicht angezeigt. Versuch mal die Dialogform statt mit Show mit Showmodal aufzurufen. Dann dürfte er das Prog erst fortführen wenn die Eingabe abgeschlossen ist.

[p.abend]

Also so wie ich das sehe funktioniert mein Vorhaben nicht.

Naja, dann trotzdem danke.

[DeddyH]

Und wenn Du das Anzeigen der RegForm nach Loaded verschiebst?

[sirius]

Delphi-Quellcode:

RegForm:=TRegform.create(application);
regform.show;

Und Regform darf nicht automatisch erzeugt werden.

[cruiser]

Oder halt so.. (ungetestet)

Code:

RegForm:=TRegform.create([color=#ff003f]nil[/color]);
regform.show[color=#ff003f]modal[/color];

[p.abend]

Es hat jetzt dank eurer Hilfe tatsächlich funktioniert.
Ich bin beeindruckt. Darauf wäre ich nicht gekommen.

Habe es jetzt ins Loaded geschrieben.

Delphi-Quellcode:

..
procedure TMyAppReg.Loaded;
begin
  if Check = false then
  begin
  // Wenn Prüfung Fehlerhaft
  if FRegShowDialog = false then
  begin
   // Anwendung einfach beenden
   Application.Terminate;
  end
  else begin
   // RegForm anzeigen
   Application.ShowMainForm := false;
   RegForm := TRegform.create(nil);
   RegForm.showmodal;
  end;
 end;
end;
..

Vielen Dank nochmal!