Was hälst du denn davon:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if
Form1.Active = true
then
Form2.Show
end;
Könnte man ja auch mit nem Timer machen. Im OnCreate hab ich es nicht geschafft.
Und dann wäre da noch Teil 2:
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form1.SetFocus;
Form2.Close;
end;
So wird Form1 zwar wieder sichtbar während die andere Form noch offen ist aber ich denke wenn du es schließt und dann die andere sichtbar machen willst geht das schief weil es ja schon zu ist...
Hoffe ich konnte helfen.
MfG Florian
