delphi 刷新子窗体,导致父窗体闪烁

父窗体上的按钮都有背景图片,窗体本身也有背景图片,貌似都是这些图片在闪烁,不做去图片测试了。。

转载:http://blog.csdn.net/dd_zhouqian/article/details/6759876

任何一个继承自TWinControl的类都有DoubleBuffered这个属性,如果你的IMAGE放在PANEL
上,你就将Panel的DoubleBuffered设为TRUE,如果在FORM上,就设FORM的。即可

我的图片控件是在panel里放着,所以后台设置panel1.DoubleBuffered:=True;后不再闪烁

还有一种办法:

在主窗体上声明这个过程,并实现它,可以防止闪烁(win7下好像不像,只能用上面那种解决方案,话说回来,设置个属性就可以,何必再多写个方法呢)

procedure CreateParams(var Params: TCreateParams); override;

 procedure TForm1.CreateParams(var Params: TCreateParams);
  begin 
    inherited;
    Params.ExStyle := 33554432; //0x 02 00 00 00
  end;

Delphi 中,可以使用以下步骤将窗体的值传递给窗体: 1. 在窗体中定义一个公共的属性,用于保存要传递的值。 2. 在窗体中创建一个公共的方法,用于将需要传递的值设置到属性中。 3. 在窗体中创建一个公共的方法,用于接收窗体传递的值。 4. 在窗体中创建窗体的实例,并调用窗体的设置值方法。 5. 在窗体关闭时,调用窗体的接收值方法,以便在窗体中更新相应的控件。 以下是示例代码: 在窗体中定义公共属性和方法: ```delphi type TChildForm = class(TForm) private FValue: Integer; public procedure SetValue(AValue: Integer); end; implementation procedure TChildForm.SetValue(AValue: Integer); begin FValue := AValue; end; ``` 在窗体中定义公共方法: ```delphi type TMainForm = class(TForm) public procedure UpdateValue(AValue: Integer); end; implementation procedure TMainForm.UpdateValue(AValue: Integer); begin // 在这里更新窗体中需要显示窗体值的控件 end; ``` 在窗体创建窗体实例并调用设置值方法: ```delphi var ChildForm: TChildForm; begin ChildForm := TChildForm.Create(Self); ChildForm.SetValue(123); ChildForm.Show; end; ``` 在窗体关闭时,调用窗体的接收值方法: ```delphi procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction); begin if Assigned(Owner) and (Owner is TMainForm) then TMainForm(Owner).UpdateValue(FValue); end; ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值