@@@@@请问怎么动态创建按钮?@@@@@

Question

Button怎么Create呀?
Dataset.Locate怎么定位两个字段的值呀?

Answer 1

with TButton.Create(Application) do
begin
  Parent := Self;
  Left := 100;
  Top := 100;
  Caption := 'Hello, world';
  OnClick := YourButtonClick;
end;dataset1.Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Answer 2

楼上的写法，很简单。不过，好像最后就没有办法free了还是应该留着按钮的引用。以便最后释放
var tb:tbutton;//////////////////////tb:=TButton.Create(Application);
with tb do
begin
  Parent := Self;
  Left := 100;
  Top := 100;
  Caption := 'Hello, world';
  OnClick := YourButtonClick;
end;////////////////////////
freeandnil(tb);

Answer 3

Owner是Application，所以当Application释放的时候，这个Button自然被释放，不需要专门写释放代码。