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; } }