InutBox - Abrruch abfragen

[HolgerCW]

Hallo zusammen,

wie kann ich bei der InputBox den Abbruch abfragen, auch wenn schon was eingegeben wurde ?

Gruss

Holger

[Ines]

Hallo Holger,

verwende statt Inputbox besser InputQuery.

Zitat:

Wenn der Benutzer auf OK klickt, gibt InputQuery true zurück. Wenn der Benutzer auf Abbrechen klickt oder die ESC-Taste drückt, gibt InputQuery false zurück.

Viele Grüße
Ines

[HolgerCW]

Danke für die Hilfe,

aber wie bekomme ich aus der Input Query denn den Eingegebenen Wert ausgelesen ?

Bekomme ja jetzt nur True oder False ?

Gruss

Holger

[TeronG]

Input Query liefert den Wert per Variabel Value

InputQuery(aCaption,aPrompt,var Value);

[Muetze1]

Zitat von OH:

Verwenden Sie InputBox, wenn ein Standardwert verwendet werden kann, falls der Benutzer das Dialogfeld mit Abbrechen schließt (oder die ESC-Taste drückt). Wenn es für die Anwendung wichtig ist, ob der Benutzer auf OK oder Abbrechen geklickt hat, verwenden Sie statt dessen InputQuery.

Bei mir gibt es kein boolsches Ergebnis bei InputBox.

Und bei InputQuery:

Zitat:

Gibt der Benutzer einen String in das Eingabefeld ein und klickt auf OK, wird dem Parameter Value der neue Wert zugewiesen.

Also der letzte Parameter (also Value) beinhaltet das eingegebene...

[edit=SirThornberry]Tag korrigiert - Mfg, SirThornberry[/edit]

[raiguen]

Moin
Ein Blick in die Delph-OnlineHifle zu InputQuery zeigt ua. dieses Beispiel hier

Zitat:

Zu diesem Beispiel gehören eine Schaltfläche und eine Beschriftung (Label). Wenn der Benutzer auf die Schaltfläche klickt, wird ein Eingabedialog angezeigt. Wenn darin auf OK geklickt wird, erscheint der im Eingabefeld stehende String als Beschriftungstext im Formular. Wenn der Benutzer auf Abbrechen klickt, wird der Dialog geschlossen, und der Beschriftungstext bleibt unverändert.

procedure TForm1.Button1Click(Sender: TObject);

var
NewString: string;
ClickedOK: Boolean;
begin
NewString := 'Standard-String';
Label1.Caption := NewString;
ClickedOK := InputQuery('Eingabedialog', 'Eingabeaufforderung', NewString);
if ClickedOK then { NewString enthält neuen Eingabestring }
Label1.Caption := 'Der neue String lautet ''' + NewString + '''';
end;

Alle Klarheiten beseitigt?

[HolgerCW]

Vielen vielen Dank,

habe es jetzt. Da ich den Value-Wert vorher belegte, wusste ich nicht das die Eingabe auf der selben Variable zurückgegeben wird.

Danke

Holger