游標指到Form上的某個rect時要顯示一個hint? |
|
尚未結案
|
|
iamjsn
初階會員   發表：78 回覆：95 積分：44 註冊：2002-08-16 發送簡訊給我 |
|
|
turboted
版主 發表：95 回覆：754 積分：452 註冊：2002-07-23 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
//利用TIMER自定BUTTON1的HINT
procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Hint:=datetimetostr(now());
end; //显示BUTTON1的HINT
procedure TForm1.Button1Enter(Sender: TObject);
begin
button1.ShowHint :=true;
end; ///关闭并且清空BUTTON1的HINT，这样每次就是您新的HINT
procedure TForm1.Button1Exit(Sender: TObject);
begin
button1.ShowHint :=false;
button1.Hint :='';
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
针对您上面的问题具个例子： //利用TIMER自定BUTTON1的HINT
procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Hint:=datetimetostr(now());
end; //显示BUTTON1的HINT
procedure TForm1.Button1Enter(Sender: TObject);
begin
button1.ShowHint :=true;
end; ///关闭并且清空BUTTON1的HINT，这样每次就是您新的HINT
procedure TForm1.Button1Exit(Sender: TObject);
begin
button1.ShowHint :=false;
button1.Hint :='';
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
turboted
版主 發表：95 回覆：754 積分：452 註冊：2002-07-23 發送簡訊給我 |
|
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
turboted 兄：
您说的是这样吗？ procedure TForm1.Timer1Timer(Sender: TObject);
var
Pt : TPoint;
WinCon : TWinControl;
WND : HWND;
begin
GetCursorPos(Pt);
WND := Handle;
repeat
WinCon := FindControl(WND);
WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(Pt));
if WND = 0 then exit;
until (WND = WinCon.Handle) or (WinCon.ControlCount <= 0);
WinCon.ShowHint :=FALSE;
wincon.Hint :='THIS IS '+wincon.Name;
WinCon.ShowHint :=true; end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
引言: turboted 兄： 您说的是这样吗？ procedure TForm1.Timer1Timer(Sender: TObject); var Pt : TPoint; WinCon : TWinControl; WND : HWND; begin GetCursorPos(Pt); WND := Handle; repeat WinCon := FindControl(WND); WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(Pt)); if WND = 0 then exit; until (WND = WinCon.Handle) or (WinCon.ControlCount <= 0); WinCon.ShowHint :=FALSE; wincon.Hint :='THIS IS ' wincon.Name; WinCon.ShowHint :=true; end;這段程式很眼熟，除了Hint 的三行外跟 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30231 裡的是差不多一樣的。 而且這只是動態給 Hint 跟題目 "游標指到Form上的某個rect時要顯示一個hint" 全沒關係。 |
|
iamjsn
初階會員 發表：78 回覆：95 積分：44 註冊：2002-08-16 發送簡訊給我 |
發表時間：2003-05-23 00:31:27
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-05-04 18:31:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |