Eigenen Menüpunkt in Delphi IDE einbauen, Wie?

[Amnon82]

JCL fügt unter dem Menüpunkt 'Tools' 'JCL Options ...' hinzu.
Wie kann man nun einen eigenen Menüpunkt hinzufügen?
Z.B. unter 'Datei'.

[Mackhack]

Das sollte exact sein was du suchst... Haettest du leichtestens mit der Suche gefunden hier im Board...

Klick hier

[Amnon82]

Werd ich mir durchlesen. Ich bin darauf zwar gestoßen, dachte aber dass es nur für eigene Programme währe und nicht adaptierbar auf die IDE von Delphi 2005 PE.

[jim_raynor]

Also auf jeden Fall suche mal nach ToolsApi. So nennt sich die Schnittstelle der Delphi IDE.

P.S: Die JCL ist doch Open-Source, schaue dir doch die entsprechende Source an.

[sakura]

Zitat von Mackhack:

Das sollte exact sein was du suchst... Haettest du leichtestens mit der Suche gefunden hier im Board...

Klick hier

Das war der falsche Thread Folgender ist interessanter Erstellen eines Delphi-PlugIns

......

[Amnon82]

Ich hab nun ein paar Probleme.

Erstens:

Ich hab die Examples runtergeladen und wollte diese einbinden.
Es kommt immer folgende Fehlermeldung:

Ungültige Version des Experten 'C:\Programme\Borland\Plugins\DelphiPlug.dll'

Zweitens:

Schön und gut. Dann wollte ich die Source der Examples compilen.
Fehlanzeige! Kann die ExptIntf bei meinem Delphi 2005 Personal nicht finden.
Gibt es dafür eine Lösung, da die GExperts ohne Probleme laufen.
Ich werd mir mal deren Sourcecodes ansehen ...

[Amnon82]

Anscheinend geht das Tutorial mit Delphi 2005 PE nicht.
Hab mich weiter umgesehen und folgende Source gefunden (siehe Anhang).

Diese funktioniert, nur wie kann man nun die Position wählen?

Menü und Punkt, wo der Expert dagestellt werden soll ...

Delphi-Quellcode:

{
Diese Unit kann in ein Package compiliert werden und erscheint danach im
Delphi Menu unter Hilfe.
}
unit SimpleExpert;

interface

uses ToolsApi;

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  public
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;
    procedure Execute;
    function GetMenuText: string;
  end;

procedure Register;

implementation

uses Dialogs;

procedure Register;
begin
  {register expert}
  RegisterPackageWizard(TSDCSimpleExpert.Create);
end;

{ TSDCSimpleExpert }

procedure TSDCSimpleExpert.Execute;
begin
  {code to execute when menu item is clicked}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {unique expert identifier}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {caption of menu item in help menu}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {name of the expert}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

end.