请问如何动态生成按纽并帮定事件

Question

我的程序中需要实现一个功能 如同WINDOWS文件夹一样的,可以显示文件名和文件图标那样,当双击的时候做出应;我想应该是动态生成图标可以做到吧;100分

Answer 1

用 ListView1, TreeView1 處理對應節點的 onclick 應該就可

Answer 2

tbutton.create(self).name = 'aaa'
  with tbutton(findcomponent('aaa')) do
     begin
          onclick := 你自己定义的过程或者其他都可以
     end;
其他组件类似

Answer 3

procedure NewLabelClick(Sender: TObject);//在程序开始定义过程作为以后的事件
procedure TMainForm.NewLabelClick(Sender: TObject);//实现过程
begin
  showmessage((TLabel(Sender).Caption);//比如说显示label名字
end;
procedure button1onclick(Sender:TObject)//比如在按下button1的时候生成一个label
var
   NewLabel:TLabel;//先定义
begin
  NewLabel := TLabel.Create(NewForm);
  NewLabel.Parent := NewForm;
  NewLabel.Left := left;
  NewLabel.Top := top;
  NewLabel.Height := 13;
  NewLabel.Caption := FieldByName('name').AsString;
  NewLabel.Font.Color := clRed;
  NewLabel.AutoSize := true;
  NewLabel.OnClick := NewLabelClick;//这里绑定事件
end;生成按钮和这个是一样的，楼主懂了吗？

Answer 4

Kshape(明年回去学C/C++、搞点地层的、不晓得好不好?) 
 写的很清楚了，。