PopupMenuLib.pas 記錄

AttachFilePopupMenu

procedure TForm1.FormCreate(Sender: TObject);

begin

  popAttachFile := TAttachFilePopupMenu.Create;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

  popAttachFile.Popup(Button9);  //參數 nil  會在游標處展開下拉選單

end;

//Property

//  popAttachFile.AttachFiles       //附加的文件清單

//  popAttachFile.Readonly          //唯讀，不可附加、移除

//  popAttachFile.DisableAttachFile //不提供附加

//  popAttachFile.DisableRemove     //不提供移除

//  popAttachFile.DisableOpenFile   //不提供文件開啟

PrinterPopupMenu

Uses Printers;

procedure TForm1.Button9Click(Sender: TObject);

var pmPrinterList: TPrinterPopupMenu;

begin

   pmPrinterList := TPrinterPopupMenu.Create;

   pmPrinterList.Popup(Button9);  //參數 nil  會在游標處展開下拉選單

end;

// Property

//   pmPrinterList.PrinterIndex   //印表機Index

//   pmPrinterList.PrinterName    //印表機名稱