1、右键看图---就像下面这个效果怎么实现？ （1）在自己的Form中右键菜单怎么实现？ （2）在系统右键菜单怎么实现？ 2、怎么在系统菜单中添加这样的二级或三级菜单？ 谢谢！ 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

放了这么多天也没人回答，无语中...    看来还得自己慢慢研究了.................. 风花雪月

關於第 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

谢谢 hagar 兄！但是不知道是否可以将 > 关键是 > 还有就是 > 风花雪月

1.大概沒辦法放個 TImage 在上面吧, 它利用 OwnerDraw 的原理, 所以得自己畫了 2.下載 http://subsimple.com/download/CustomContextMenu.zip, 裡面說它可輕易實現, 可我沒研究過, 您試試看 3.再找找! :-)    -- 歡迎光臨 KTop 研究院!

引言: 參考 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