The form does not yet perform any actions when the user clicks the OK button.
For information on editing the main form, see Editing the Main Form.
procedure TformMain.IWButton1Click(Sender: TObject); begin end;
procedure TformMain.IWButton1Click(Sender: TObject); var s: string; begin s := editName.Text; if Length(s) = 0 then WebApplication.ShowMessage("Please enter your name.") else begin WebApplication.ShowMessage("Hello, " + s +"!"); editName.Text := ""; end; end;
For information about running the completed application, see Running the Completed Application.
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
What do you think about this topic? Send feedback!
|