X xiaolaoda Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #1 请问怎么实现在取数据库的等候时间中显示，一提示，不要用message等对话框，30分求解 要象dfw bbs中的把鼠标放在表情图表上就弹出一显示信息的效果。
沙 沙_儿 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #2 放一个Panel，开始不可见，当执行语句是 可见并等待，完成后设为不可见 Panel的界面自己改
S seared2008 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #3 别人怎么给你做那？ 给你个思路： 自作一个窗体，自生自亡？就可以。
C china_peng Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #4 var MyNoWaitWnd: THintWindow; procedure ShowNoWaitDlg; begin if not Assigned(MyNoWaitWnd) then MyNoWaitWnd := THintWindow.Create(Self); MyNoWaitWnd.ActiveHint(Rect(100, 100, 200, 150), '正在计算, 请稍等...'); end; procedure HideNoWaitDlg; begin MyNoWaitWnd.ReleaseHandle; end; http://www.delphibbs.com/delphibbs/dispq.asp?lid=1009627
var MyNoWaitWnd: THintWindow; procedure ShowNoWaitDlg; begin if not Assigned(MyNoWaitWnd) then MyNoWaitWnd := THintWindow.Create(Self); MyNoWaitWnd.ActiveHint(Rect(100, 100, 200, 150), '正在计算, 请稍等...'); end; procedure HideNoWaitDlg; begin MyNoWaitWnd.ReleaseHandle; end; http://www.delphibbs.com/delphibbs/dispq.asp?lid=1009627
L ljy_17 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #5 不知這個可不可以滿足你的要求： application.hint:='外理數據'; application.ShowHint:=true; ……………… 取數據庫… ……… application.hint:=''; application.ShowHint:=false;
不知這個可不可以滿足你的要求： application.hint:='外理數據'; application.ShowHint:=true; ……………… 取數據庫… ……… application.hint:=''; application.ShowHint:=false;
