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!
|