Menus.MainMenuについて


@@  2005-02-25 08:51:26  No: 13429  IP: [192.*.*.*]

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

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

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

編集    削除
回答錯誤  2005-02-25 18:48:09  No: 13430  IP: [192.*.*.*]

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

編集    削除
ぱお  2005-03-19 11:22:52  No: 13431  IP: [192.*.*.*]

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

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

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

編集    削除