Eigene Dialog Fenster erstellen

[SirThornberry]

So einfach geht es:

Delphi-Quellcode:

function TPetPassDialog.Execute(ACaption: String): String;
begin
  LabelCaption.Caption := ACaption;
  if (ShowModal = mrOK) then
    result := EditPasswort.Text
  else
    result := '';
end;

procedure TPetPassDialog.BtnOkClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TPetPassDialog.BtnCancel(Sender: TObject);
begin
  ModalResult := mrCancel;
end;