如果不是我用的delphi破解版的问题就是delphi本身有漏洞了。大家请进，关于hint。

Allblus 2004-08-28 10:57:07

问题是这样的：
我在form上放了一个image控件然后放一张jpg图片
再设置hint:='提示'，showhint:=true;
再添加
procedure TForm1.FormCreate(Sender: TObject);
begin
application.HintHidePause:=60000; //延长hint显示时间1分钟
end;
原意是想把hint的显示时间延长，在我第一次试时达到了我的目的，等我过了一会儿再运行那个程序时，那hint根本就没有显示。

各位试一下看是不是delphi本身的漏洞。

我记得以前也有人在csdn发过delphi漏洞的贴。

...全文

355 35 打赏收藏转发到动态举报

写回复

用AI写文章

35 条回复

切换为时间正序

请发表友善的回复…

发表回复

halfdream 2004-08-30

打赏
举报

之所以这样说，因为相关的源代码都是公开的。
没遇到类似问题，
暂没空细看，怀疑是form activate事件的关系。。

Allblus 2004-08-30

打赏
举报

欲哭无泪，痛苦ing^^^^^^^^^^

Allblus 2004-08-30

打赏
举报

哈欠老兄，我知道你很行，能不能说清楚一点这不跟D版正版有关系那究竟是怎么一回事？？？？谢谢

newyj 2004-08-30

打赏
举报

to yellowhwb(KaDoO)
是字体的问题，用宋体之类的汉自，字符集gb2312即可，设autosize如果caption要变就会有问题

capoatguitar 2004-08-30

打赏
举报

毕竟不是MS的东西，有一些确实靠不住。

halfdream 2004-08-30

打赏
举报

没有理由认为这跟D版正版有关系。

bjskyhorse 2004-08-30

打赏
举报

有些简短问题是比较头疼,D7,大概以前的也有.比方你的位图按钮和菜单如果是直接关联的话而不是在按钮的点击事件里加入菜单的点击事件,HINT就有问题,表现为你亲眼看到HINT写好了,保存,关闭程序再打开,HINT没有.但是如果你没有使用ITEMINDEX来关联,而是直接在位图按钮的双击事件里加入菜单事件menuitemclick(sender),就是OK的.

还有一个问题是我用d7,曾经发生过过了一段时间,delphi和用delphi做的程序都无法打开,提示说未找到注册信息(虽然用的是盗版,但是我从来不会去做注册生级),重装delphi也没有,只能重装系统.!!

Allblus 2004-08-30

打赏
举报

誰有正版的delphi啊？？？？？

Allblus 2004-08-30

打赏
举报

无论你相不相信事实是这样:

我今天一来就试了这个问题，我第一次打开我的程序时在我的image图片上有hint提示，hint也可以显示一分钟。等我干了一点其它的事再回到这个程序时那hint没有了，我再运行程序时有时有有时就没有（这里的意思是重新打开程序，如果打开了没有的话无论你怎么动鼠标hint都不会显示）。

我详细说一下我是怎么做的：

我在一个form上放了40个speedbutton控件，再在speedbutton上面放了40个image控件。在这个form.show被调用时程序自动为40个image上面加载40张图片。我再
procedure TForm8.FormActivate(Sender: TObject);
var
i:integer;
nostr:string;
begin
for i:=1 to 40 do
begin
image[i].ShowHint:=true;
if lab[i].Caption = '' // 表示没图片显示
then image[i].ShowHint:=false;
form8.showthehint(i);//根据图片对应的label（编号）设置image[i].Hint :='图片说明'
end;
我再

procedure TForm8.FormCreate(Sender: TObject);
begin
application.HintHidePause:=60000;//延长hint显示时间一分钟
end;
相信我这样做完全是正确的，

问题是这个hint怎么会有时有有时没有呢？（）而我做的操作都是相同的。

wilowind 2004-08-30

打赏
举报

把Form的showHint 设为True试试

halfdream 2004-08-30

打赏
举报

选中PROJECT-》OPTIONS-》COMPILER-》USE DEBUG DCUs

有几个地方可以拦截观察。。先把握流程，再分析原因。

比如，可以在这儿设断点开始跟踪
TApplication.HintMouseMessage//它是处理WM_MOUSEMOVE消息。

也可以设在TApplication.ActivateHint

Allblus 2004-08-30