请教大侠,这段源码为什么出错?(30分)

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #1

请教大侠,这段源码为什么出错?
Var
A;integer;
S;string;
procedure TForm3.SpeedButton1Click(Sender: TObject);
.............
begin
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('control panel/desktop',true)then
begin
A:=trackbar2//显示错误.Position;
S:=InttoStr(A);
reg.WriteString('menushowdelay',S);

end;

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #2

reg是全局变量吧，被创建了吗？
trackbar2是设计期间的控件，还是运行期间生成的控件？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #3

为什么把 “.position” 注释掉???????

 

B

Block_K_E

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #4

你的程序中没有定义trackbar2，这应该是个TTrackBar控件。
在窗口中添加一个可视控件TTrackBar，Name为TrackBar2就可以了。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #5

如果你的trackbar2 是 TTrackbar 控件，
把“//显示错误”去掉就应该可以了！

 

T

thebluehouse2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-18

• #6

“//显示错误”是我后加的,是指在该处出错!

 

火

火龙真人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-18

• #7

报什么错啊?trackbar2是当前模块下的么?USE了么
你看下这个我写读键值的过程,改动一下看还有错么
function tform1.getreg(pass:string):string;
var
mpreg:tregistry;
begin
result:='';
mpreg:=tregistry.Create;
mpreg.RootKey:=HKEY_LOCAL_MACHINE;
mpreg.OpenKey('Software/Mpsoft/Smenu',false);
result:=mpreg.readstring(pass);
mpreg.Free;
end;