关于Delphi中控件数组的问题

Question

设置不同得tag
onclick指向同一段带码
case (sender as tbutton).tag of 请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  bt:tbutton;
  i:integer;
  ol:tobjectlist;
begin
  ol:=tobjectlist.Create(true);
  bt:=tbutton.Create(self);
  bt.Name:='name1';
  ol.Add(bt);
  bt:=tbutton.Create(self);
  bt.Name:='name2';
  ol.Add(bt);
  for i:=0 to ol.Count-1 do
    if ol.Items[i] is tbutton then
        showmessage( tbutton(ol.Items[i]).name);
  ol.Free;end;