Eingabefeld als Popup-Abfrage

[dominikkv]

such mal nach InputQuery:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Test: String;
begin
  if InputQuery('Titel', 'Bitte hier etwas eingeben: ', Test) then
    showmessage('Benutzer hat Folgendes eingegeben: '+#13#10#13#10+Test);
end;