屏幕窗体切换时出现系统背景(闪了一下)
如何解决?
procedure TForm3.pricesClick(Sender: TObject);
var i,j:integer;
begin
fxxtl.show;
//xxtl panel contrl
fxxtl.xxtlfrist.Picture.LoadFromFile('..\PICTURE\XXTL\fristpicture\jiage.jpg');
fxxtl.Pprice.DoubleBuffered:=true;
fxxtl.pfrist.Visible:=true;
fxxtl.Pprice.Visible:=true;
fxxtl.chengche.Visible:=false;
fxxtl.renwu.Visible:=false;
fxxtl.zaochen.Visible:=false;
fxxtl.zaocan.Visible:=false;
fxxtl.zoo.Visible:=false;
fxxtl.time.Visible:=false;
fxxtl.riqi.Visible:=false;
fxxtl.home.Visible:=false;
fxxtl.didian.Visible:=false;
//data
datamodule1.ADOQuery1.Close;
datamodule1.ADOQuery1.SQL.Clear;
datamodule1.ADOQuery1.SQL.Add('select * from xxtl where type="b"');
datamodule1.ADOQuery1.Active:=true;
fxxtl.questioncount:=datamodule1.ADOQuery1.RecordCount;
fxxtl.trueanswer:=true;
for i:=0 to 11 do
begin
fxxtl.questiona[i]:=0;
fxxtl.questionb[i]:=0; end;
with fxxtl do
begin
for i:=0 to 11 do //开始判断
begin
while questiona[i]=0 do
questiona[i]:=random(fxxtl.questioncount+1);
for j:=0 to 10 do
begin
while questiona[i]=questionb[j] do
begin
questiona[i]:=random(fxxtl.questioncount+1);
end;
end;
questionb[i]:=questiona[i];
end;
//随机数已存于数组a中 bwzts1.Visible:=true;
bwzts2.Visible:=false;
bwzts3.Visible:=false;
bztyc1.Visible:=true;
bztyc2.Visible:=false;
bztyc3.Visible:=false;
bhome1.Visible:=true;
bhome2.Visible:=false;
bhome3.Visible:=false;
end;
fxxtl.xxtltime.Enabled:=true;
fxxtl.show;
form3.Hide;end;
如何解决?
procedure TForm3.pricesClick(Sender: TObject);
var i,j:integer;
begin
fxxtl.show;
//xxtl panel contrl
fxxtl.xxtlfrist.Picture.LoadFromFile('..\PICTURE\XXTL\fristpicture\jiage.jpg');
fxxtl.Pprice.DoubleBuffered:=true;
fxxtl.pfrist.Visible:=true;
fxxtl.Pprice.Visible:=true;
fxxtl.chengche.Visible:=false;
fxxtl.renwu.Visible:=false;
fxxtl.zaochen.Visible:=false;
fxxtl.zaocan.Visible:=false;
fxxtl.zoo.Visible:=false;
fxxtl.time.Visible:=false;
fxxtl.riqi.Visible:=false;
fxxtl.home.Visible:=false;
fxxtl.didian.Visible:=false;
//data
datamodule1.ADOQuery1.Close;
datamodule1.ADOQuery1.SQL.Clear;
datamodule1.ADOQuery1.SQL.Add('select * from xxtl where type="b"');
datamodule1.ADOQuery1.Active:=true;
fxxtl.questioncount:=datamodule1.ADOQuery1.RecordCount;
fxxtl.trueanswer:=true;
for i:=0 to 11 do
begin
fxxtl.questiona[i]:=0;
fxxtl.questionb[i]:=0; end;
with fxxtl do
begin
for i:=0 to 11 do //开始判断
begin
while questiona[i]=0 do
questiona[i]:=random(fxxtl.questioncount+1);
for j:=0 to 10 do
begin
while questiona[i]=questionb[j] do
begin
questiona[i]:=random(fxxtl.questioncount+1);
end;
end;
questionb[i]:=questiona[i];
end;
//随机数已存于数组a中 bwzts1.Visible:=true;
bwzts2.Visible:=false;
bwzts3.Visible:=false;
bztyc1.Visible:=true;
bztyc2.Visible:=false;
bztyc3.Visible:=false;
bhome1.Visible:=true;
bhome2.Visible:=false;
bhome3.Visible:=false;
end;
fxxtl.xxtltime.Enabled:=true;
fxxtl.show;
form3.Hide;end;
解决方案 »
- 取已知字符串的后四位形成新的字符的相应函数吗?我想不起来了!谢谢!!!
- 在delphi中如何使用dxinput?
- 我的程序产生了莫名的错误,请指教!!!
- 代码实现AdoQuery字段编辑器中Add All Fields功能
- 如何改变DBGrid1和StringGrid1中单独一行的背景色?
- 请大家急救:在使用ADO连接时成功,但其后无论用哪个ADO控件都出现'FROM 子句错误' ,请问如何解决???
- help me,
- 老问题,给没有Canvas的控件加Canvas,100分
- 找不到edit控件?
- 如何调用数据库中的数据,填如一个EDIT中,用的是ADO连接
- 关于数据库????
- 排列childForm的函數是什麼呀?窗體水平並排、垂直並排、重壘顯示等等。
begin
fxxtl.show;
fxxtl.show;
form3.Hide;
end;
改为:
begin
form3.Hide;
fxxtl.show;
end;
用TNoteBook,建立不同的页就可以了。
想显示哪一页就notebook.activepage := 'page1';
每一页上都有很多的控件。