苦 苦海无边 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-18 #1 窗体上 有 若干已填写Hint值得控件。<br>求实现<br>当鼠标悬停至某个控件上方的时候，能将这个控件的hint信息<br>提交给同一窗体上的 一个 label的caption<br>谢谢 各位[?][?]
窗体上 有 若干已填写Hint值得控件。<br>求实现<br>当鼠标悬停至某个控件上方的时候，能将这个控件的hint信息<br>提交给同一窗体上的 一个 label的caption<br>谢谢 各位[?][?]
N nicai_wgl Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-18 #2 用OnMouseMove事件，如下：<br>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> Y: Integer);<br>begin<br> Form1.Caption := (Sender as TButton).Hint;<br>end;
用OnMouseMove事件，如下：<br>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> Y: Integer);<br>begin<br> Form1.Caption := (Sender as TButton).Hint;<br>end;
S sjm Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-18 #3 同意nicai_wgl的意见，但应改为：<br>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> Y: Integer);<br>begin<br> Label1.Caption := (Sender as TButton).Hint;<br>end;
同意nicai_wgl的意见，但应改为：<br>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> Y: Integer);<br>begin<br> Label1.Caption := (Sender as TButton).Hint;<br>end;
飘 飘雪 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-18 #4 将所需控件的ShowHint设为True<br>加入一个TApplicationEvents控件在additional页中<br><br>procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;<br> var CanShow: Boolean; var HintInfo: THintInfo);<br>begin<br> label1.caption:= HintStr;<br>end;
将所需控件的ShowHint设为True<br>加入一个TApplicationEvents控件在additional页中<br><br>procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;<br> var CanShow: Boolean; var HintInfo: THintInfo);<br>begin<br> label1.caption:= HintStr;<br>end;
L LFCZ Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-20 #5 在控件的Hint中输入要显示的文字。设置控件的ShowHint为True。
B bbscom Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-20 #6 支持飄雪<br>将所需控件的ShowHint设为True<br>加入一个TApplicationEvents控件在additional页中<br><br>procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;<br> var CanShow: Boolean; var HintInfo: THintInfo);<br>begin<br> label1.caption:= HintStr;<br>end;
支持飄雪<br>将所需控件的ShowHint设为True<br>加入一个TApplicationEvents控件在additional页中<br><br>procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;<br> var CanShow: Boolean; var HintInfo: THintInfo);<br>begin<br> label1.caption:= HintStr;<br>end;
