2013-11-23
展开全部
大部分人都是在 Align 属性设置的。要实现标准的比例也行(),在窗体的大小改变事件写
比如你的TButton控件要放在窗体的中间。那么就在在窗体的大小改变事件写:
Button1.Left := Self.Width div 2 - Button1.Width div 2 ;
Button1.Top := Self.Height div 2 - Button1.Height div 2 ;
比如你的TButton控件要放在窗体的中间。那么就在在窗体的大小改变事件写:
Button1.Left := Self.Width div 2 - Button1.Width div 2 ;
Button1.Top := Self.Height div 2 - Button1.Height div 2 ;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-23
展开全部
以下以TEdit 控件为例吧
1.在Form的Public中定义TEdit控件
Edit1:TEdit;
2.在需要生成的地方加入以下代码:
Edit1:=TEdit.Create(Self);
Edit1.Parent:=Form1;
Edit1.Left :=20;
Edit1.Top :=20;
Edit1.Text :='Edit1 Text';
3.使用完毕后,释放分配的资源
if Assigned(Edit1) then Edit1.Free;
二、运行时生成非可视控件:以下以 TTimer控件为例
1.在Form的Public中定义TTimert控件
Timer1:TTimber;
2.在需要生成的地方加入以下代码:
Timer1:=TTimer.Create(Self);
Timer1.OnTimer:=YourAction;
YourAction是自己定义的OnTimer事件,使用
procedure TForm1.YourAction(Sender:TObject); 完成
3.使用完毕后,释放分配的资源
if Assigned(Timer1) then Timer1.Free;
1.在Form的Public中定义TEdit控件
Edit1:TEdit;
2.在需要生成的地方加入以下代码:
Edit1:=TEdit.Create(Self);
Edit1.Parent:=Form1;
Edit1.Left :=20;
Edit1.Top :=20;
Edit1.Text :='Edit1 Text';
3.使用完毕后,释放分配的资源
if Assigned(Edit1) then Edit1.Free;
二、运行时生成非可视控件:以下以 TTimer控件为例
1.在Form的Public中定义TTimert控件
Timer1:TTimber;
2.在需要生成的地方加入以下代码:
Timer1:=TTimer.Create(Self);
Timer1.OnTimer:=YourAction;
YourAction是自己定义的OnTimer事件,使用
procedure TForm1.YourAction(Sender:TObject); 完成
3.使用完毕后,释放分配的资源
if Assigned(Timer1) then Timer1.Free;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-23
展开全部
与其这样,LX干脆让最大化按钮变灰。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询