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

解決

パコタ 2007-04-02 22:58:33 No: 25574 IP: 192.*.*.*

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ということにはならないのでしょうか？

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

編集削除

パコタ 2007-04-02 23:11:59 No: 25575 IP: 192.*.*.*

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

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

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

編集削除

パコタ 2007-04-02 23:12:54 No: 25576 IP: 192.*.*.*

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

編集削除