Sender(TObject)のprocedureでの使い方について

解決

---

procedure SetItem(Sender : TObject; A:integer; C:integer; D:integer);
var
items:string;
begin
items := inttostr(A) + inttostr(B) + inttostr(C);
Sender.Additem(items,Sender);
end;

という関数を作りまして、以下から呼び出しましたところ、

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
SetItem(Combobox3,combobox1.itemindex,combobox2.itemindex,combobox3.itemindex);

end;


Additemが未定義だといわれてしまいました。
SetItemの呼び出し時にSenderでCombobox3を指定しているのですが、
Combobox3.Additemということにはならないのでしょうか？

まったく的外れかもしれませんがご教授お願いします。

編集    削除

---

すいません、自己解決しました！！！！

Sender as Tcomboboxとするんですね！！！！！！

後学のためにのこしておきます！
------------
witch (Sender as TCombobox) do begn//SenderをTComboboxとして使う
    Additem(items,Sender);
end;
------------

編集    削除

---

解決ボタンわすれました！

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。