Hint 如何加入背景圖片或是圖示? |
答題得分者是:Justmade
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
我用一個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 發送簡訊給我 |
引言: 我用一個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 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
magicka
一般會員 發表:0 回覆:1 積分:0 註冊:2003-04-05 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
引言: 我沒安裝那個 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">發表是最好的記憶! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |