Control mit Subcontrols designen

[Sidorion]

Also für zusätzliche Menüeinträge ala 'Neue Seite' beim PageControl hab ich was gefunden: GetVerbCount, GetVerb und ExecuteVerb. Die erste liefert die Anzahl der customer-Kontextmenüeinträge, die zweite die Einträge selber (über Index). Diese beiden Funktionen werden in Deiner Komponente greufen, wenn während der Designzeit jemand auf die Komponente rechtsklickt, die dritte, wenn einer der Einträge ausgewählt wird.

Delphi-Quellcode:

type
  THelloGoodByeComponentEditor = class(TComponentEditor)
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;

procedure THelloGoodByeComponentEditor.ExecuteVerb(Index: Integer);
begin
  case Index of
    0 : ShowMessage('Hello');
    1 : ShowMessage('Goodbye');

  end;
end;

function THelloGoodByeComponentEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'Arrive';
    1 : Result := 'Depart';
  end;
end;

function THelloGoodByeComponentEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;