哎呀，又有问题了，窗体属性设置FormStyle

[2540546520]

现在我有一个窗体Form1
我在代码中这样设置

Form1.FormStyle:=fmdichild;
Form1.FormStyle:=fsstayontop;


我一定要这两句代码，代码不能换的，哎，Boss要这样做

但是我运行这两句代码时候会出现闪烁 ，我想不闪烁，请问怎么办呢？
杯具咯

[2540546520]

没人回答 ？？？？

[rabbitsonny]

LockWindowUpdate(Handle);
try

Form1.FormStyle:=fmdichild;
Form1.FormStyle:=fsstayontop;
finally

LockWindowUpdate(Null);
end;

试一下。

[kye_jufei]

LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。
而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle,WM_SETREDRAW,1,0)之后;

LockWindowUpdate的意思是暂时禁止某控件或窗口所在的区域更新(这个区域可能有多个窗口)，LockWindowUpdate（0）的意思是有更新消息就更新屏幕上所有该更新的窗口吧。所以LockWindowUpdate（0）之后，若此前有重画消息积聚，会立刻重画。所以使用LockWindowUpdate会在不同的时候有不同的表现，比如屏幕上窗口多少、堆放情况等等，所以有时不闪有时却闪个不停。

SendMessage(ClientHandle,WM_SETREDRAW,0,0)的意思是不接收任何重画消息；
SendMessage(ClientHandle,WM_SETREDRAW,1,0)的意思是可以接收并响应重画消息了，但并不立即重画，所以必须附加 ReDrawWindow(ClientHandle,nil,0,RDW_INVALIDATE or RDW_ALLCHILDREN);

[luohao14789]

牛，学习楼上的。

[2540546520]

[Quote=引用 3 楼 kye_jufei 的回复:]
LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。
而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle……
[/Quote]
这个好像实践不行呢 ？？ 可以贴个代码看看吗 是不是我使用有不对的地方

[2540546520]

[Quote=引用 2 楼 rabbitsonny 的回复:]
LockWindowUpdate(Handle);
try

Form1.FormStyle:=fmdichild;
Form1.FormStyle:=fsstayontop;
finally

LockWindowUpdate(Null);
end;

试一下。
[/Quote]
额 这个也没反应！

[2540546520]

俺是这样使用的 但是却杯具了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
SendMessage(ClientHandle,WM_SETREDRAW,0,0);
FormStyle:=fsStayOnTop;
FormStyle:=fsNormal;
SendMessage(ClientHandle,WM_SETREDRAW,1,0);
ReDrawWindow(ClientHandle,nil,0,RDW_INVALIDATE or RDW_ALLCHILDREN);
end;

end.

[Believe]

关注，学习。

[2540546520]

[Quote=引用 3 楼 kye_jufei 的回复:]
LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。
而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandle……
[/Quote]
这个谁来搞定下 为什么放到MDI就不行了呢

[dd_zhouqian]

[Quote=引用 3 楼 kye_jufei 的回复:]

LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。
而使用SendMessage(ClientHandle,WM_SETREDRAW,0,0)之后，控件根本不接收重画消息，除非使用SendMessage(ClientHandl……
[/Quote]
好像用到过这代码，一直不太明白，今天受教了