第35题）：以下程序怎么出不来黄色提示框啊？

Question

第35题）：以下程序怎么出不来黄色提示框啊？
var
 pos:TPoint;
begin
application.HintPause :=1;
GetCursorPos(Pos);
menuitem1.hint:='haha';
application.HintColor  := clInfoBk;
application.ActivateHint(Pos);//帮助里说会出现的呀？
end;//没反应老大？怎么回事？？？

Answer 1

clInfoBk不是默认的颜色吗?
改一下其它颜色就有效果了.

Answer 2

procedure TForm1.Button1Click(Sender:TObject);
var
 pos:TPoint;
begin
application.HintPause :=1;
GetCursorPos(Pos);
button1.showhint:=true;  //是否显示button1的hint
button1.hint:='haha';
application.HintColor  := clred; //显示为红色的.
application.ActivateHint(Pos);
end;试过上面的, 可以. 不知道你是的怎么写的.

Answer 3

楼主你少了一句 menuitem1.showhint:=true;procedure TForm1.Button1Click(Sender: TObject);
begin
application.HintPause :=1;
button1.hint:='haha';
application.HintColor  := clInfoBk;
button1.ShowHint:=true;
end;

Answer 4

楼主你少了一句  menuitem1.showhint:=true;procedure TForm1.Button1Click(Sender: TObject);
begin
application.HintPause :=1;
button1.hint:='haha';
application.HintColor  := clInfoBk;
button1.ShowHint:=true;
end;

Answer 5

这个DD干嘛用的?
打开,退出都出错.你的treeview没操作做好.