ヘルプの表示について

クリリン 2005-07-01 19:12:48 No: 16125

コンポーネントを作っています。
インディのコンポーネントのように、
フォームに貼り付けた後で、右クリックして
サブメニューから「About Internet・・・」をクリックすると
ヘルプ画面が表示されますが、
これって、どうやっているのでしょうか？

ん？ 2005-07-01 22:17:43 No: 16126

まじめに作ったことないし、動くかわからんが、こんな感じ？

procedure Register;

implementation

type
  THogeEditor = Class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: integer); override;
    function GetVerb(Index: integer): string; override;
    function GetVerbCount : integer; override;
  end;

function THogeEditor.GetVerb(Index: integer): string;
begin
  case Index of
    0 : Result := 'About ...'
  end
end;

function THogeEditor.GetVerbCount: integer;
begin
Result:=1;
end;

procedure THogeEditor.ExecuteVerb(Index: integer);
var
  hogeAboutDlg: THogeAboutDlg;
begin
  case Index of
    0 :begin
      hogeAboutDlg := THogeAboutDlg;
      hogeAboutDlg.ShowModal;
      hogeAboutDlg.Free;
    end;
  end
end;

procedure Register;
begin
RegisterComponentEditor(THogeComponent, THogeEditor);
end;

あとは、Dsgnintf やらで検索したら、注意とか、いろいろでてくるんじゃないかと思われる。

もっといいサンプル等お持ちの方、レスよろしく。