Programm zeigt 2.Form nicht an -> fehler

[hendy]

So ich hab ein Problem, wo ich nicht verstehe, wo das Problem liegt.
Ich habe jetzt eine Umweglösung über einen timer, aber anscheinend will Lazarus nicht mit

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
Form2.show;
end;

Die 2te Form anzeigen, es stürzt lieber ab. Compiler geht, nur beim Ausführen stürzt es mit External:SIGSEV ab, auch wenn der Aufruf in einem try...except block steht.
Über einen Button oder den Timer geht es wunderbar, also sind alle Verknüpfungen richtig.
Ich weiß nicht, ob das ein Bug ist, oder das ein Fehler ist, der normal ist und den ich nur nicht kenne.

[theo]

So ich hab ein Problem, wo ich nicht verstehe, wo das Problem liegt.
Ich weiß nicht, ob das ein Bug ist, oder das ein Fehler ist, der normal ist und den ich nur nicht kenne.

Auch hier hilft nachdenken.
Zum Zeitpunkt der Erstellung des ersten Formulars (TForm1.FormCreate) ist das zweite Formular wahrscheinlich nicht bereits "created" und kann deshalb auch nicht zugegriffen werden.
Probier mal OnShow.

[hendy]

Ach und wenn der Timer eine milisekunde danach das macht, ist sie createt?

[khh]

Ach und wenn der Timer eine milisekunde danach das macht, ist sie createt?

ja

[af0815]

Ach und wenn der Timer eine milisekunde danach das macht, ist sie createt?

Wenn der Timer nach den Formularen erzeugt wird, dann ja. Im Projektfile einmal nachsehen, wie die Erstellreihenfolge ist. Gegbenenfalls die Reihenfolge richtig stellen.

[hendy]

j aes funktioniert jetzt auch.
Die Millisekunde hat jeder Zeit (denke ich )

[theo]

j aes funktioniert jetzt auch.
Die Millisekunde hat jeder Zeit (denke ich )

Wie gesagt, mit dem OnShow Event des ersten Formulars kannst du dir den Timer sparen.

[Scotty]

Vielleicht willst du auch OnIdle benutzen. So recht klar ist mir nicht, warum ein zweites Formular ausgerechnet beim Erzeugen des Hauptformulars angezeigt werden soll. Da gibt es sicher elegantere und einfachere Lösungen für eine noch nicht gestellte Frage

Code: Alles auswählen

procedure FormCreate()
...
Application.OnIdle:=@DoIdle;
end;
procedure DoIdle(..var done:boolean);
begin
...
Application.OnIdle:=nil;
done:=true;  
end;

[hendy]

Ich wollte einfach 2 forms

[Scotty]

Wenn du ein zweites Formular erzeugst, wird Visible auf false gesetzt. Dreh an der Schraube und es gibt zwei Fenster.

[hendy]

Ja ok, nächste Frage...
Wie kann ich vom 1sten Formular aus auf dem 2ten Panels oder labels erzeugen? Und deren Eigenschaften setzen?

[Targion]

Code: Alles auswählen

panel:=TPanel.Create(Form2);
with panel do
begin
  Parent:=Form2;
  Top:=5;
  Left:=5;
  Width:=50;
  Height:=50;
  Caption:='Testpanel';
end;

So zum Beispiel, wenn du's dynamisch haben willst.

P.S:
Mache bitte für jede neue Frage einen eigenen Thread auf, sonst wird dieser hier mit der Zeit extrem unübersichtlich. Außerdem ist es bei einzelnen Threads für Hilfesuchende einfacher, Antworten zu finden.

[hendy]

Ah ok danke.
Normalerweise erstelle ich immer eine neue, aber gestern hab ich das vergessen
Panel ist eine Variable, oder?
Welchen Typ hat die denn?
EDIT:
So funktioniert, sehen tu ich aber nichts
Visible ist auf true gesetzt

[Targion]

Panel ist ein objekt von Typ TPanel.
Warum erstellst du kein Panel in dem neuen Form mittels Designer?

[hendy]

Ich möchte ein Programm mit grafischer Oberfläche haben, das beim erstellen von einer xml datei hilft.
Dafür brauche ich dynamische Positionen, damit, je nach komplexität, mehr objekte erstellt werden.