Inputbox Eingabe als "*********"

[shmia]

Nimm mal ein neues Formular und setze zwei BitButtons drauf.
BitBtn1: property Kind=bkOK
BitBtn2: property Kind=bkCancel
Damit ist das Grundgrüst für ein modales Formular schon fertig.
Es wird kein Eventhandler benötigt, da über das Property ModalResult der Buttons alles von selbst geht.
Es wird keine sonstige Variable ("aborted") oder ähnliches benötigt, das regelt alles ModalResult.

[xZise]

Zitat von gordon freeman:

Wofür dann diese "aborted" Variable, das habe ich noch nicht verstanden. Ist die dann nicht überflüssig?

Da ich dachte das du einen Dialog wolltest (OK, Abbrechen), habe ich das mit aborted gesagt. In der steht, ob die Form über Abbrechen oder über OK geschlossen worde.
Du muss natürlich das schließen selber übernehmen.
Du könntest alternativ das als Property anlegen, und bei "write" "SetAborted" schreiben, mit der Methode, die FAborted setzt & schießt.

Ich poste mal den Code für Dialoge mit OK und Abbrechen:

Delphi-Quellcode:

type
  TDialogFrm = class(TForm)
  // etc.
  private
    aborted : Boolean;
  // etc.
  end;

procedure bAbortClick...
begin
  close;
end;

procedure bOKClick...
begin
  aborted := false;
  close;
end;

function ShowModal... : Boolean;
begin
  aborted := true;

  // Alles auf "Ursprung" setzten, wenn die Form nicht seperat erstellt wird

  inherited; // ggf. inherited ShoModal;

  result := not aborted;
end;

Um das mit meheren Modi zu machen (OK, Ignorieren etc.), funktioniert das ganze dann über Integer, welche dann entsprechend gesetzt werden.
Am besten dazu dann noch Konstanten schreiben, oder viel besser, die vorhanden nehmen (ID_YES etc.) ^^

[Die Muhkuh]

Mit Integer? Wofür gibt es dann den ModalResult. Shimas Variante ist die einfachste und auch schnell mit anderen Buttons erweiterbar.

[xZise]

Zitat von Die Muhkuh:

Wofür gibt es dann den ModalResult.

Sry, aber mit ModalResult habe ich mich nicht beschäftigt, und weiß leider net, wie ich das beeinflussen kann ...

[gordon freeman]

Zitat von xZise:

Sry, aber mit ModalResult habe ich mich nicht beschäftigt, und weiß leider net, wie ich das beeinflussen kann ...

Einfach für den Button im Objeltinspektor unter der EIgenschaft "ModalResult" einstellen.