新手求教怎样动态添加TButton? 我是新手我怕谁!!!N年以后我也是一个高手!!现在处于学习阶段,请高手们多多指教!N年以后我再指教别人! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var t:TButton;begin t:=TButton.Create(Nil); with t do begin parent:=form1; caption:='??'; Name:='??'; Left:=??; Top:=??; endend t:=TButton.Create(Nil);这一句改为t:=TButton.Create(self);更好 var t:TButtonimplementation t:=Tbutton.Create(self); t.Parent:=self; t.Left:=100; t.Top:=100; t.Name:='fd'; t.Height:=30; var t:TButton;begin t:=TButton.Create(Self); with t do begin parent:=form1; caption:='??'; Name:='??'; Left:=??; Top:=??; OnClick := Pro1; end;end; with TButton.Create(nil) do begin Parent := 你的窗体; Font.Name := 宋体; Font.Size := 9; Caption := LoadStr(SClose); Name := 'CloseButton'; OnClick := DialogCloseButtonClick; SetBounds(248,200,81,23); end; delphi 如何关闭IIS 有什么好的方法可以把SQL Server的表导入到FireBird表中? 如何用Rave实现下列报表?(含统计) treeview\listview 滚动条总是会花掉是咋会事? 请问怎样转换为中文的日期! Question2 如何日期型记录 编码实现NTFS格式下删除文件的恢复 dll中的函数用TDBGrid做var参数可以么 哪位大哥可以给我一个不需要smtp服务器的发送邮件的例子??? 怎样处理二级汉字的拼音首字母? 三层结构,根据用户使应用服务器适时切换到该用户对应的数据库上。高手前来探讨。。。。
t:TButton;
begin
t:=TButton.Create(Nil);
with t do
begin
parent:=form1;
caption:='??';
Name:='??';
Left:=??;
Top:=??;
end
end
这一句改为
t:=TButton.Create(self);
更好
t:TButton
implementation
t:=Tbutton.Create(self);
t.Parent:=self;
t.Left:=100;
t.Top:=100;
t.Name:='fd';
t.Height:=30;
t:TButton;
begin
t:=TButton.Create(Self);
with t do
begin
parent:=form1;
caption:='??';
Name:='??';
Left:=??;
Top:=??;
OnClick := Pro1;
end;
end;
Parent := 你的窗体;
Font.Name := 宋体;
Font.Size := 9;
Caption := LoadStr(SClose);
Name := 'CloseButton';
OnClick := DialogCloseButtonClick;
SetBounds(248,200,81,23);
end;