Ecriture d'un gestionnaire d'événement pour le bouton

Remonter à Introduction à IntraWeb - Index

La fiche n'effectue pas encore d'actions quand l'utilisateur clique sur le bouton OK.

Pour plus d'informations sur la modification de la fiche principale, voir Modification de la fiche principale.

Vous allez maintenant écrire un gestionnaire d'événement qui affiche une salutation quand l'utilisateur clique sur OK.

1. Double-cliquez sur le bouton OK dans la fiche. Un gestionnaire d'événement vide est créé dans la fenêtre de l'éditeur, qui ressemble à :

 
procedure TformMain.IWButton1Click(Sender: TObject);
 begin
 end;

void fastcall TformMain::Button1Click(TObject *Sender)
{

}

2. En utilisant l'éditeur, ajoutez du code au gestionnaire d'événement pour qu'il ressemble à :

   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;
   

   void __fastcall TformMain::IWButton1Click(TObject *Sender)
   {
   	UnicodeString s;
   	s = editName->Text;
   	if (s.Length() == 0) {
   		WebApplication->ShowMessage("Please Enter Your Name");
   	}
   	else {
   		WebApplication->ShowMessage("Hello, " + s + "!");
   		editName->Text = "";
   	}
   }
   

Pour plus d'informations sur l'exécution de l'application achevée, voir Exécution de l'application achevée.

Voir aussi

• http://www.atozed.com/IntraWeb/Documentation/Index.EN.aspx