コンポーネントを作っています。
インディのコンポーネントのように、
フォームに貼り付けた後で、右クリックして
サブメニューから「About Internet・・・」をクリックすると
ヘルプ画面が表示されますが、
これって、どうやっているのでしょうか？
まじめに作ったことないし、動くかわからんが、こんな感じ？
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 やらで検索したら、注意とか、いろいろでてくるんじゃないかと思われる。
もっといいサンプル等お持ちの方、レスよろしく。