利用融入技术时，出现屏幕闪烁怎么处理？(10分)

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #1

利用融入技术时，出现屏幕闪烁怎么处理？

 

S

Sindbad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #2

不是吧？怎么做的？

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #3

procedure BitBtn1Click(Sender:TObject);
begin
if not Assigned(frmTaxi) then
frmTaxi := TfrmTaxi.Create(Application);
frmTaxi.ManualDock(Panel1);
frmTaxi.show;
end;

说明：frmTaxi的Align我设置为alClient;

 

S

Sindbad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #4

我这里好像没有闪烁。要么这么改改看：

procedure BitBtn1Click(Sender:TObject);
begin
LockWindowUpdate(Handle);
try
if not Assigned(frmTaxi) then
frmTaxi := TfrmTaxi.Create(Application);
frmTaxi.ManualDock(Panel1);
frmTaxi.show;
end;
finally
LockWindowUpdate(0);
end;

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #5

哈哈，我重做一遍就可以了

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #6

接受答案了.