初学者的几个问题，很多，分不够再加

Question

1。用exit，怎么退不出formclose过程呢？2。菜单hint已设定，却发现没showhint属性，如何显示?3。如何屏蔽系统的错误，如:a:='abc',再用inttostr(a),就会出现错误框，我想自己检测并做出提示。4。trackbar的滑动块后的背景如何改小一点，就是滑动块滑动的容器，像edit控件的那个东西。不知大家明不明白:) 而滑动块不能变小。我设置了ThumbLength，发现滑动块也小了。5．Installshield如何不能显示繁体中文？我设置了1：general information->default font为标楷体，在本机上却显示乱码？问题很多，急着要，不分贴了，分不够再加。谢谢大家了。

Answer 1

3.
var
  aa:string;
  temp:integer;
begin
  aa:='abc'
  try
    temp:=inttostr(a)
  except
    showmessage('error');
  end;
end;

Answer 2

3.
var
  aa:string;
  temp:integer;
begin
  aa:='abc'
  try
    temp:=inttostr(a);
  except
    showmessage('error');
  end;
end;

Answer 3

3.
var
  aa:string;
  temp:integer;
begin
  aa:='abc';
  try
    temp:=inttostr(a)
  except
    showmessage('error');
  end;
end;

Answer 4

1.最好把代码贴出来，exit怎么不能退出？
2
3:
用try...except，代码楼上已经贴出来啦。
4：滑块和背景槽是成等比例的，不能像你说的那样完成
5:保证你的系统安装有繁体语言包Big5的.

Answer 5

1 估计你是不想关窗体，设置Action := acNone;
2 设置Application.OnHint或加入TApplicationEvents控件
3 4 5 如上

Answer 6

1.这样就退不出，窗体依然关闭:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 exit;
end;
5。我的系统是繁体的，在本机就是不能显示，只有第一屏可以，其余全是乱码，相似欧文。

Answer 7

1。undeclared identifier:'acNone';
   我是想根据判断确定是否退出窗体：
   if saveflag=6 then
      exit;

Answer 8

在TForm1.FormCloseQuery里写
if saveflag=6 then
 CanClose := false;

Answer 9

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('确定要退出吗?','系统提问：',MB_YESNO+MB_ICONQUESTION )=IDYES then
CanClose:=True
else
CanClose:=False;
end;

Answer 10

try
inttostr(a); except
 else

Answer 11

1.exit 可用 goto 语句代替:
如:
goto Quit; //Quit标号在函数的最后一行

Answer 12

1.将OnClose换为OnCloseQuery:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Application.MessageBox('确定要退出吗?','系统提问：',MB_YESNO+MB_ICONQUESTION )=IDYES;
end;

Answer 13

谢谢诸位了。剩第二个问题，如何让菜单显示hint???，还是不能显示,那么hint属性有什么用？

Answer 14

加入TApplicationEvents控件，加入TStatusBar,TApplicationEvents的OnHint事件：StatusBar1.SimpleText := Application.Hint;