Rückkehr nach Showmodal

[daywalker9]

Zitat von Spezi:

Delphi-Quellcode:

procedure Tmainform.die_prozedur();
begin
  timer1.enabled:=false;
  Application.CreateForm(Tform2, form2);
  form2.showmodal();
  self.setfocus();
end;

Übrigends kannst du auch einfach in der Prozedure die Form ohne Application.CreateForm erzeugen. Und die in einer lokalen Variable halten:

Delphi-Quellcode:

procedure Tmainform.die_prozedur();
var meineForm : TForm2;
begin
  timer1.enabled:=false;
  meineForm := TForm2.Create(Application);
  if meineForm.showmodal = mrOk then
    begin
    end;
   meineForm.Free;
  self.setfocus();
end;