Eigene Dialog Fenster erstellen

[DelphiPeter]

Hallo Delphi Gemeinde

Ich würde gerne eigene DIaloge bauen, wie z.B. einen Dialog in welchem z.b. ein Passwort eingegeben werden muss. Der Aufruf soll z.B. so aussehen

passwort := PetPassDialog('Bitte Passwort eingeben:');

Oder einen eigenen Message Dialog.

Sind das Klassen die Formulare beinhalten? Oder wie läuft das?

[rollstuhlfahrer]

HI,

wenn du die VCL-Quellcodes mitinstalliert hast, würde ich dir raten mal einen Blick auf die Funktion InputQuery zu werfen. Diese macht das schon fast. Du musst nur noch dem Edit ein PasswortChar zuweisen und fertig ist dein gewünschter Dialog.

Bernhard

[DelphiPeter]

Ja die InputQuery kenne ich. Nein also ich möchte sowas selber machen, weiß nur nicht wie. Einfach ein Formular designen, und wie ist das mit dem Aufruf und vorallem mit der Rückgabe?

[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;

[DelphiPeter]

Genau das habe ich gesucht. Sieht auch irgendwie logisch aus, ich müsste mich für die Frage schämen :-(

Danke jedenfalls!

Peter