Implémentation des commandes

Remonter à Ajout d'éléments au menu contextuel

Lorsque la commande fournie par GetVerb est sélectionnée dans le concepteur, la méthode ExecuteVerb est appelée. Pour chaque commande que vous spécifiez dans la méthode GetVerb, implémentez une action dans la méthode ExecuteVerb. Vous pouvez accéder au composant en cours de modification à l'aide de la propriété Component de l'éditeur.

Par exemple, la méthode ExecuteVerb suivante implémente les commandes de la méthode GetVerb de l’exemple Spécification d'éléments de menu.

procedure TMyEditor.ExecuteVerb(Index: Integer);
var
  MySpecialDialog: TMyDialog;
begin
  case Index of
    0: begin
         MyDialog := TMySpecialDialog.Create(Application);       { instancier l'éditeur }
         if MySpecialDialog.Execute then;                 { si l'utilisateur valide la boîte de dialogue par OK... }
           MyComponent.FThisProperty := MySpecialDialog.ReturnValue;   { ...utiliser la valeur }
         MySpecialDialog.Free;                                       { détruire l'éditeur }
       end;
    1: That;                                                       { appeler la méthode That }
  end;
end;

void __fastcall TMyEditor::ExecuteVerb(int Index)
{
switch (Index)
{
case 0:
TMyDialog *MySpecialDialog = new TMyDialog();
MySpecialDialog->Execute();
((TMyComponent *)Component)->ThisProperty = MySpecialDialog->ReturnValue;
delete MySpecialDialog;
break;
case 1:
That();  // Appelle la méthode "That"
break;
}
}