taste tryk i inputbox

Jeg formoder der er i en dialog box du mener .. Igivet fald kan det gøres således :

procedure TForm1.Button1Click(Sender: TObject);

begin
  if MessageDlg(\'Welcome to my Object Pascal application.  Exit now?\',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg(\'Exiting the Object Pascal application.\', mtInformation,
      [mbOk], 0);
    Close;
  end;

end;

hvordan du kan se det ?
alså at det bliver til sendt til dig eller hvad ?

NEJ det er ikke

Som jeg også skriver i overskriften så er det i en inputbox

Det kan du ikke med en inputbox, men hvis du istedet bruger InputQuery funktionen så kan du ! Prøv det her.


procedure TForm1.FormCreate(Sender: TObject);
var
  ResultString: String;
begin
  ResultString := \'Hest\';

  if not InputQuery(\'Input Box\', \'Prompt\', ResultString) then
    Caption := \'Cancel was pressed\'
  else
    Caption := \'Ok was pressed\';
end;

Jens B

Som Jens skriver: Brug en InputQuery.
Følgende er et snip fra Delphi\'s help text:

Use the InputBox function when there is a default value that should be used when the user chooses the Cancel button (or presses Esc) to exit the dialog. If the application needs to know whether the user chooses OK or Cancel , use the InputQuery function.


Delphi

Der er iøvrigt et godt eksempel til InputQuery i Delphi\'s help.

Delphi