PopUpMenu MenuItem Hint 使用 |
答題得分者是:aquarius
|
newbie
初階會員 發表:81 回覆:45 積分:25 註冊:2002-11-28 發送簡訊給我 |
|
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
引言: 大家好, 小弟想在程式裡面 Popupmenu 當使用者移動游標的時候秀出相關 item 的提示說明在 Statusbar 上, 或 Hint, 可使握直接 assign Hinte 值在 design time, runtime 卻看不到, 也沒有一般 ShowHijnt 可設? 另外在什麼 Event 下可以將 對 Status bar 寫資訊, 類似 OnDraw?HINT 可以用 Application.OnHint 來顯示. 試試以下的碼... type TForm1 = class(TForm) Button1: TButton; PopupMenu1: TPopupMenu; N11: TMenuItem; N21: TMenuItem; StatusBar1: TStatusBar; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure DisplayHint(Sender: TObject); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DisplayHint(Sender: TObject); begin StatusBar1.SimpleText := (Application.Hint); end; procedure TForm1.FormCreate(Sender: TObject); var i : integer ; begin for i:=0 to PopupMenu1.Items.Count-1 do PopupMenu1.Items[i].Hint:=format('%d:Wahaha %s',[i,PopupMenu1.Items[i].name]) ; Application.OnHint := DisplayHint; end;...Aquarius
------
水瓶男的blog: http://791909.blogspot.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |