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?
