Ich würde die Forms (wie DeddyH sagt) wenn möglich erst zur Laufzeit erzeugen:
Delphi-Quellcode:
type
TFormIrgendwas = class(TForm)
//...
public
class function Execute: Boolean;
end;
...
...
class function TFormIrgendwas.Execute: Boolean;
begin
with TFormIrgendwas.Create(nil) do
begin
Result := ShowModal = mrOK;
Free;
end;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
if TFormirgendwas.Execute then
ShowMessage('Fenster mit "OK" geschlossen')
else
ShowMessage('Fenster mit "Abbrechen" geschlossen');
end;