Mega Code Archive

 

Categories / Delphi / Forms

 

Show input dialog box

Title: Show input dialog box Call InputBox function to bring up an input dialog box ready for the user to enter a string in its edit box. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=InputBox('Question', 'Enter string', 'Default'); end;