Hi Cicaro,
so hab ich das bei einer meiner Komponenten gemacht:
Delphi-Quellcode:
type
TMyComponentEditor = class(TComponentEditor)
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
{...}
procedure TMyComponentEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0: (Component as TMyComponent).Edit;
end;
end;
function TMyComponentEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result := 'Edit';
end;
end;
function TMyComponentEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
In der Methode Edit wird dann das Editor-Formular aufgerufen...
Wichtig ist das Registrieren des Editors:
Delphi-Quellcode:
procedure Register;
begin
RegisterComponentEditor(TMyComponent, TMyComponentEditor);
end;
MfG
Stevie