N
nicai_wgl
Unregistered / Unconfirmed
GUEST, unregistred user!
你首先先确定是那部分代码引起闪烁的,把这段代码屏蔽掉,或修改下试试。
MyTestFrm1 := TMyTestFrm1.Create(Self);
MyTestFrm1.Parent := MainFrm.PanelMain; -->> MyTestFrm1.Parent := nil;
MyTestFrm1.BorderStyle := bsNone;
MyTestFrm1.Align := alClient;
MyTestFrm2 := TMyTestFrm2.Create(Self);
MyTestFrm2.Parent := MainFrm.PanelMain; -->> MyTestFrm2.Parent := nil;
MyTestFrm2.BorderStyle := bsNone;
MyTestFrm2.Align := alClient;
MyTestFrm1 := TMyTestFrm1.Create(Self);
MyTestFrm1.Parent := MainFrm.PanelMain; -->> MyTestFrm1.Parent := nil;
MyTestFrm1.BorderStyle := bsNone;
MyTestFrm1.Align := alClient;
MyTestFrm2 := TMyTestFrm2.Create(Self);
MyTestFrm2.Parent := MainFrm.PanelMain; -->> MyTestFrm2.Parent := nil;
MyTestFrm2.BorderStyle := bsNone;
MyTestFrm2.Align := alClient;