線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1661
推到 Plurk!
推到 Facebook!

Hint 如何加入背景圖片或是圖示?

答題得分者是:Justmade
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-07 16:05:32 IP:61.216.xxx.xxx 未訂閱
Hint 如何加入背景圖片或是圖示?    希望不吝指教!    發表是最好的記憶!
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-07 16:19:28 IP:211.74.xxx.xxx 未訂閱
我用一個image跟一個Label測試,不知道是不是你要的??
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Hint:='123';
image1.Top:=Label1.Top Label1.Height 30;
image1.Left:=Label1.Left 20;
image1.Visible:=True;
end;    procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
image1.Visible:=False;
end;
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-07 16:44:26 IP:61.216.xxx.xxx 未訂閱
引言: 我用一個image跟一個Label測試,不知道是不是你要的?? [code]procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Hint:='123'; image1.Top:=Label1.Top Label1.Height 30; image1.Left:=Label1.Left 20; image1.Visible:=True; end; Delphi 5 的Label1無提供此MouseLeave事件功能 procedure TForm1.Label1MouseLeave(Sender: TObject); begin image1.Visible:=False; end;
謝謝chih 大大 指教! chih大大的程式,是把Hint='123' 與Image分開顯示! 不知可否能夠合在一起,Image是背景圖,Hint是前景文字。 或是類是XP撥接程式一樣,Hint 左側加一個ICON圖示。 發表是最好的記憶! 發表人 - qoo1234 於 2003/05/07 16:46:53
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-07 17:12:57 IP:218.16.xxx.xxx 未訂閱
是否要類似這樣的效果?     我做得很醜,但這個是真的將 Hint 的 control 改變了,可以在 hint control 上改變顏色及劃東西,其他所有元件完全不需改動,只要設定了 Hint 及 ShowHint = true 便用以這個自訂的 hint control 顯示。
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-05-07 17:34:15 IP:61.225.xxx.xxx 未訂閱
發表是最好的記憶!
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-05-07 18:05:43 IP:218.16.xxx.xxx 未訂閱
你那個不就是 jvcl 的 Boolean Hint 嗎? 你直接用那個元件 或參考那個元件來 做自己的不就可以了嗎 
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-05-07 19:48:36 IP:61.225.xxx.xxx 未訂閱
引言: 你那個不就是 jvcl 的 Boolean Hint 嗎? 你直接用那個元件 或參考那個元件來 做自己的不就可以了嗎 < face="Verdana, Arial, Helvetica"> jvcl 提供300-400元件,其中 Boolean Hint 元件牽涉了粉多的相關檔案, 這樣做好像粉麻煩喔!可否有更好的辦法! 發表是最好的記憶!
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-05-07 19:57:03 IP:218.16.xxx.xxx 未訂閱
它的方法就是我說的替代 hint control 的方法,用你自己做的 Control 來代替標準 hint control 你喜歡甚樣做就甚樣做 Balloon Hint 因為功能強大所以便牽涉了粉多的相關檔案,你若不用那麼多功能便自行似它的方法去開發法便可 我剛才的例子當然很醜,但用了不到十行程式碼便做到了,所以你若不要太多功能應不會很麻煩的。 發表人 - Justmade 於 2003/05/07 19:59:53
magicka
一般會員


發表:0
回覆:1
積分:0
註冊:2003-04-05

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-05-08 17:13:51 IP:61.174.xxx.xxx 未訂閱
http://people.zeelandnet.nl/famboek/delphi/ ,里面有个TBalloon控件,看看是否符合要求
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-05-08 17:37:37 IP:218.16.xxx.xxx 未訂閱
我沒安裝那個 TBalloon 只看了一下它的程式碼 這個好像不能取代 Application 的 hint,因為它是用一個 Form 來做顯示 Hint 的 若要自動顯示(即不用程式碼控制),它只可連到一個 Control 手動顯示則隨時可用但要用程式在合適時機指定在那個地方顯示甚麼,比較麻煩。 若用取代原本 Hint Contorl 的方法則 Application 仍會全程控制 hint 的顯示,你只需做好你喜歡的 Hint Control 樣子便可以了。
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-05-08 22:04:24 IP:61.225.xxx.xxx 未訂閱
引言: 我沒安裝那個 TBalloon 只看了一下它的程式碼 這個好像不能取代 Application 的 hint,因為它是用一個 Form 來做顯示 Hint 的 若要自動顯示(即不用程式碼控制),它只可連到一個 Control 手動顯示則隨時可用但要用程式在合適時機指定在那個地方顯示甚麼,比較麻煩。 若用取代原本 Hint Contorl 的方法則 Application 仍會全程控制 hint 的顯示,你只需做好你喜歡的 Hint Control 樣子便可以了。
謝謝提醒~ < src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶!
系統時間:2024-05-17 5:35:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!