Delphi » Moduły » SysUtils

InputQuery

Adam Boduch
  • 2006-06-27 15:37:02
  • 2010-10-31 18:27:10
  • 1 komentarz
  • 4174 odsłony
InputQuery
Moduł: Dialogs
```delphi function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; ``` [[Delphi/Overload|Przeciążona]] [[Delphi/Funkcje|funkcja]] umożliwiają wyświetlenie okna dialogowego. Okno pozwala na wprowadzenie tekstu liczby zmienno lub stałoprzecinkowej.

Parametr ACaption określa tytuł okna dialogowego. APrompt to treść etykiety wyświetlanej w oknie natomiast Value to parametr referencyjny, który zawierać będzie wartość wpisaną w oknie.

Przykład:

procedure TMainForm.MyButtonClick(Sender: TObject);
var
  Name : String;
begin
  if InputQuery('Jak masz na imię', 'Podaj imię', Name) then
  begin
    ShowMessage('Cześć ' + Name);
  end;
end;

Naciśnięcie klawisza Esc powoduje zamknięcie okna.
Wykorzystanie funkcji InputQuery może być dobrą alternatywą dla tworzenia własnego formularza.

Zobacz też:

Wyświetlanie SysUtils Delphi

1 komentarz

Opi

Należy dodać że w odróżnieniu od funkcji InputBox, ta funkcja już obsługuje anulowanie komunikatu.

var
 Wynik: String;
begin
 if not InputQuery('Tytuł', 'Podaj treść', Wynik) then ShowMessage('Wciśnięto anuluj')
 else ShowMessage(Wynik);
end;