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