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

解決

パコタ 2007-04-03 07:58:33 No: 25574

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-03 08:11:59 No: 25575

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

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

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

パコタ 2007-04-03 08:12:54 No: 25576

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