Eigenen Dialog aufrufen

[arbu man]

Das Ganze könnte in etwa so aussehen:

Delphi-Quellcode:

function Execute:boolean; // Der Aufruf
begin
  fdeineform:= Tfdeineform.Create(Application);
  try
    fdeineform.ShowModal;
    result:=fdeineform.execute;
  finally
    fdeineform.Free;
  end;
end;

type
  Tfdeineform = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  public
    execute:boolean;
  end;

...

procedure Tfdeineform .Button2Click(Sender: TObject);
begin
  execute:=false;
  close;
end;

procedure Tfdeineform .Button1Click(Sender: TObject);
begin
  execute:=true;
  close;
end;

Aber wenn du nur einen dialog mit ja und nein brauchst guckst du dir am besten mal application.messagebox oder windows.messagedlg an.