Hallo,
hilft das aus Delphi 7?
Delphi-Quellcode:
Delphi-Syntax:
function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
function InputQuery(const ACaption, APrompt: WideString; var Value: WideString): Boolean; overload;
function InputQuery(const ACaption, APrompt: WideString; var Value: string): Boolean; overload;
function InputQuery(const ACaption, APrompt: WideString; var Value: Double, Min: Double = Low(Integer); Max: Double = High(Integer); Decimals: Integer = 1): Boolean; overload;
function InputQuery(const ACaption, APrompt: WideString; var Value: Integer, Min: Integer = Low(Integer); Max: Integer = High(Integer); Increment: Integer = 1): Boolean; overload;
Beschreibung
Mit InputQuery können Sie ein Eingabedialogfeld anzeigen, in dem der Benutzer einen String, einen Double- oder einen Integerwert eingeben kann.
Der Parameter ACaption enthält den Titel des Dialogfeldes.
Der Parameter APrompt ist der Text, der den Benutzer zur Eingabe auffordert.
Der Parameter Value ist der Wert, der beim Öffnen des Dialogfeldes angezeigt wird und der die Eingabe des Benutzers zurückgibt.
Der Parameter AMin ist der kleinste Wert, der der Benutzer eingeben kann.
Der Parameter AMax ist der größte Wert, der der Benutzer eingeben kann.
Der Parameter Decimals hat keine Bedeutung.
Der Parameter Increment legt fest, um welchen Betrag sich der Wert bei einem Klick auf einen der beiden Pfeile des Drehfeld-Steuerelements verändert. Auf manuelle Eingaben hat Increment keinen Einfluss.
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.
Wenn die Anwendung einen Standardwert benötigt, falls der Benutzer das Dialogfeld mit Abbrechen schließt (oder die ESC-Taste drückt), verwenden Sie InputBox anstelle von InputQuery.
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.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
NewString: string;
ClickedOK: Boolean;
begin
NewString := 'Default String';
Label1.Caption := NewString;
ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
if ClickedOK then { NewString enthält neue Eingabe }
Label1.Caption := 'The new string is ''' + NewString + '''';
end;
Stephan