D
delphifaq
Unregistered / Unconfirmed
GUEST, unregistred user!
关于STATUSBAR 急急急！！！！
我在自己机子上编的状态条显示程序，到别的机子上运行，状态条
上不显示内容，但有的机子可显示，我实在WIN97下用D3编的，在有的
WIN98下能运行，有的WIN97下也能运行，在WIN NT4 SP3下不显示，请问
是D3的问题还是操作系统的问题呢？？？
下面是一段测试码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
StatusBar1: TStatusBar;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10000 do
begin
statusbar1.SimpleText:=inttostr(i);
end;
end;
end.
有问题吗？ 我还有一段多线程的也出现上述问题？
请问该如何解决？？？？？？？？？？？？？
我在自己机子上编的状态条显示程序，到别的机子上运行，状态条
上不显示内容，但有的机子可显示，我实在WIN97下用D3编的，在有的
WIN98下能运行，有的WIN97下也能运行，在WIN NT4 SP3下不显示，请问
是D3的问题还是操作系统的问题呢？？？
下面是一段测试码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
StatusBar1: TStatusBar;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10000 do
begin
statusbar1.SimpleText:=inttostr(i);
end;
end;
end.
有问题吗？ 我还有一段多线程的也出现上述问题？
请问该如何解决？？？？？？？？？？？？？
