神奇的问题,DBgrid滚动条丢失(请高手帮忙)!(100分)

  • 主题发起人 主题发起人 ajiwuweibin
  • 开始时间 开始时间
A

ajiwuweibin

Unregistered / Unconfirmed
GUEST, unregistred user!
最近碰到一个神奇的问题:Form1弄一个滚动字幕在滚动(TTimer控制Label滚动)当滚动一定时间(比如20分钟)以后,打开Form2,DBGrid的滚动条就看不见,然后打开其他窗口,所有DBGrid的滚动条全部看不见!很简单的几句代码,应该不是代码问题。
procedure TForm1.Timer_rollTimer(Sender: TObject);
begin

if not boo then

Label_roll.Left:= Label_roll.Left+1
else

Label_roll.Left:= Label_roll.Left-1;
if Label_roll.Left+Label_roll.Width> Panel_top.Width-10 then

boo:=true
else
if Label_roll.Left <10 then

boo:=false;
end;

procedure TForm2.FormShow(Sender: TObject);
var
Variant:OleVariant;
begin

form1.SCon.AppServer.SearchData('select * from 物品信息表',Variant);
goodsCds.Data:=Variant;
goodsCds.Active:=true;
end;
 
是不是用过什么皮肤控件吧?
单独贴这两段代码是无助于解决问题的
 
程序内存消耗问题,检查一下程序,或是其它程序消耗完了内存。
 

Similar threads

I
回复
0
查看
554
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部