问题
动态创建的VCL控件如何改变属性?例如
procedure StartForm.ShowLabel(Top,Left,Width,Height: Integer;
Caption,Name: String;Parent: TForm;Color,FontColor: TColor);
var
LoadLabel: TLabel;
begin
LoadLabel := TLabel.Create(Parent);
LoadLabel.Parent := Parent;
LoadLabel.AutoSize := False;
LoadLabel.Caption := Caption;
LoadLabel.Name := Name;
LoadLabel.Top := Top;
LoadLabel.Left := Left;
LoadLabel.Width := Width;
LoadLabel.Height := Height;
LoadLabel.Color := Color;
LoadLabel.Font.Color := FontColor;
//LoadLabel.Font.Size := 1;
//LoadLabel.Transparent := True;
end;现在我想改变LoadLabel的Width属性,如何进行更改?
动态创建的VCL控件如何改变属性?例如
procedure StartForm.ShowLabel(Top,Left,Width,Height: Integer;
Caption,Name: String;Parent: TForm;Color,FontColor: TColor);
var
LoadLabel: TLabel;
begin
LoadLabel := TLabel.Create(Parent);
LoadLabel.Parent := Parent;
LoadLabel.AutoSize := False;
LoadLabel.Caption := Caption;
LoadLabel.Name := Name;
LoadLabel.Top := Top;
LoadLabel.Left := Left;
LoadLabel.Width := Width;
LoadLabel.Height := Height;
LoadLabel.Color := Color;
LoadLabel.Font.Color := FontColor;
//LoadLabel.Font.Size := 1;
//LoadLabel.Transparent := True;
end;现在我想改变LoadLabel的Width属性,如何进行更改?
解决方案 »
- 如何将指定的颜色做为TColorBox中的当前色啊?
- quickrep里如何自定义打印纸的高度,即把a4的高设为原来的1/2,急,谢谢大牛了。
- 当按下Ctrl+C键时不拷贝如何做?
- 大家推荐几本书啊!ADO,多线程的,还有delphi下的xml应用
- 请问怎样"固定"取得dbrgid中所选择的当前记录行中的某个字段值。(不能选其他字段)
- <<<<<好笑话难找啊。tpagecontrol问题。
- 请问,我下载的rar格式的文件用什么才能打开?
- 使用DCOMConnection连接时,如何判断此时有几个客户端连接?
- 我应该怎么选择?求救
- 十万火急:delphi5 和SQL SERVER 的怪问题!!
- Indy10的帮助文件能集成到DELPHI中吗?
- 要UPDATE 带参数的ADOQUERY查询出来的结果如何写呢?
LoadLabel := TLabel.Create(self);
LoadLabel.Parent := self;
想在函数已经创建后
再修改他的属性
如调用:ShowLabel(100,100,100,10,'a','b',ShowForm,clBlue,clBlue);
会在ShowForm上加一个离Form Top,Left分别为100,宽为100,高为10,名字为'b'...等的Label组件
现在我现想再改Width为150怎么改?
var tempLabel:TLabel;
begin
tempLabel:=TLabel.Create(self);
tempLabel.Parent:=Self;
tempLabel.Caption:='haha';
tempLabel.Name:='aa';
tempLabel.Left:=100;
tempLabel.Top:=100;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
(self.FindComponent('aa') as TLabel).Caption:='xixi';
end;