ich bekomme es einfach nicht hin, weiss nicht wieso deine Form2 als erste startet ist mir einfach ein komplettes Rätsel denn als Code hat es nur einen Button bei der ActiveControl und wenn dieser weggelassen wird kommt die trotzdem als erste....
ich habe ein anders beispiel vorher gemacht dass einwandtfrei funktioniert NUR nicht wenn ich es in meine Anwendung einbinden will..ich meine bei einem neuen Projekt klappt das tadellos:
Delphi-Quellcode:
uses Unit2;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
try
Form2.ShowModal;
Application.Initialize;
Form2.Update;
if Form2.Edit1.Text = 'hallo' then
begin
Form2.Free;
Application.Run;
end else
Application.CreateForm(TForm1, Form1);
finally
end;
end;
uses Unit1;
procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'hallo' then
begin
Form2.Close;
end else
ShowMessage('Leider ist die Eingabe falsch');
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Edit1.Text = 'hallo' then
begin
Form2.Close;
end else
Application.Terminate();
end;
wie gesagt, nicht dass ich hier als Trottel dastehe der gar nichts auf die Reihe bringt
JEDOCH mein Problem besteht immer noch ich bekomme Fehler und den Vorschlag von Marabu kann ich nicht umsetzen weil ich da gar nichts sehe als Unterschied im Quellcode außer eben diesem Button und dem ActiveControl ist da auch gar nichts mehr.
EDIT !!...
jetzt habe ich die
dpr geöffnet und da steht was mit showModal usw. versuche das jetzt zu machen..aber finde es komisch dass ich dafür den Editor aufmachen musste denn Delphi hat mir nur die Formen angezeigt nicht aber die
dpr ..naja ich versuchs jetzt mal