Menus.MainMenuについて

＠＠ 2005-02-25 08:51:26 No: 13429

procedure A(MainMenu : TMainMenu);
という関数を用意し、MainMenuコンポーネントを"MainMenu"という名前で貼り付けます。

その状態で、引数にそのMainMenu（貼り付けたもの）を与え、関数Aを使おうとすると、

TMainMenuとMenus.TMainMenuでは互換性がないと言われてしまいます。
多分、関数Aの引数が Menus.TMainMenu でなければならないということだと思い、色々調べたり試行錯誤してみたのですがどうもうまくいきませんので
もしどなたかわかる方がいらっしゃいましたらご教授宜しくお願いします。

回答錯誤 2005-02-25 18:48:09 No: 13430

自前で TMainMenuクラスを定義していれば、そのようなエラーも出るかな？
ともかく、質問の内容だけでは、”ナンのコッチャ？”ですねぇ。

ぱお 2005-03-19 11:22:52 No: 13431

MainMenuとButtonを置いて次の処理はできますね。
問題は別のところでしょう。

procedure TForm1.A(MainMenu: TMainMenu);
begin
ShowMessage(MainMenu.ClassName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
A(MainMenu1);
end;