netFrame-Syntax:
function Input_Query(const ACaption, APrompt:string; Var Value: string): boolean
Beschreibung:
Input_Query präsentiert dem Benutzer einen Eingabe Dialog wo Daten eingegeben werden.
ACaption ist die Überschrift die angezeigt wird.
APrompt ist der Text vor dem Eingabefeld.
In der Variable Value wird die Eingabe des Benutzer zurück geschrieben.
Als Ergebnis der Funktion bekommt man true wenn der Benutzer OK drückt ansonsten bekommt man false zurück.
Beispiel:
procedure ButtonEingabe_OnClick(Sender: Integer);
var
aValue: string;
begin;
if Input_Query('Eingabe', 'Bitte Jahr definieren:', aValue) then
begin
if isInteger(aValue) then
begin
//Hier weitere Behandlung ...
end else
begin
message_dlg('Eingabe ist keine gültige Zahl!');
end;
end;
end;