Befehle implementieren

Nach oben zu Einträge in das Kontextmenü einfügen

Wenn der Benutzer im Entwurfsfenster einen von GetVerb bereitgestellten Befehl auswählt, wird die Methode ExecuteVerb aufgerufen. Implementieren Sie für jeden auf diese Weise definierten Befehl eine Aktion in ExecuteVerb. Auf die zu bearbeitende Komponente können Sie über die Editoreigenschaft Component zugreifen.

In der folgenden Methode ExecuteVerb werden die Befehle für die Methode GetVerb im vorhergehenden Beispiel implementiert.

 procedure TMyEditor.ExecuteVerb(Index: Integer);
 var
   MySpecialDialog: TMyDialog;
 begin
   case Index of
     0: begin
          MyDialog := TMySpecialDialog.Create(Application);       { Editor-Instanz erzeugen }
          if MySpecialDialog.Execute then;                 { Wenn der Anwender auf OK klickt, ... }
            MyComponent.FThisProperty := MySpecialDialog.ReturnValue; { ...Wert verwenden }
          MySpecialDialog.Free;                                       { Editor freigeben }
        end;
     1: That;                                                       { Methode That aufrufen }
   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(); // Methode That aufrufen
 break;
 }