[右键看图]怎样在菜单中嵌入控件? |
缺席
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
關於第 1. 點,大概的作法如下:
用一個 TPopupMenu / TFileListBox / TImage 元件
PopupMenu1 的 OwnerDraw 屬性設為 True
PopupMenu1 增加兩個 TMenuItem, 以下程式是畫在第二個 TMenuItem 上
FileListBox1 的 PopupMenu 屬性設為 PopupMenu1
FileListBox1 的 Mask 屬性設為 *.bmp(本例只顯示 Bitmap 檔)
TImage 元件的 StretchDraw 屬性設 True
相關程式碼:
procedure TForm1.N21MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin // 設它第二個 TMenuItem 顯示的 Width / Height Width := Image1.Width; Height := Image1.Height; end; procedure TForm2.N21DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin if FileListBox1.ItemIndex = -1 then Exit; Image1.Picture.LoadFromFile(FileListBox1.Items[FileListBox1.ItemIndex]); // 先將 FileListBox1 被選取的 Bitmap 檔案載入 Image1 ACanvas.StretchDraw(ARect, Image1.Picture.Bitmap); // 畫在第二個 MenuItem 的顯示區域 end;-- 歡迎光臨 KTop 研究院! 發表人 - hagar 於 2004/08/27 12:09:25 |
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
conundrum
尊榮會員 發表:893 回覆:1272 積分:643 註冊:2004-01-06 發送簡訊給我 |
引言: 參考 akai 兄的大作(有關 IE PlugIn): http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31020 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31189 -- 歡迎光臨 KTop 研究院!http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23191 此法應可以的 發表人 - conundrum 於 2004/08/28 11:54:29 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |