掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ヘルプの表示について (ID：16126)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
まじめに作ったことないし、動くかわからんが、こんな感じ？ 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 やらで検索したら、注意とか、いろいろでてくるんじゃないかと思われる。 もっといいサンプル等お持ちの方、レスよろしく。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.