button 如何实现在pagecontrol逐个创建复选框
大家好请问:button 如何实现在pagecontrol内逐个创建 复选框?
[解决办法]
- Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var tem:TcheckBox;begin tem := TCheckBox.Create(self); tem.Caption := '测试'; tem.Parent := TabSheet1;end;
发布时间: 2012-04-14 17:14:21 作者: rapoo
button 如何实现在pagecontrol逐个创建复选框
大家好请问:button 如何实现在pagecontrol内逐个创建 复选框?
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);var tem:TcheckBox;begin tem := TCheckBox.Create(self); tem.Caption := '测试'; tem.Parent := TabSheet1;end;