Платные хостинги     Раскрутка сайта     Книги по программированию

И снова попап, вставка картинки

- Почему в попапменю1 не видно картинки?вин9хunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) PopupMenu1: TPopupMenu; pop11: TMenuItem; pop21: TMenuItem; pop31: TMenuItem; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } bmUnChecked : TBitmap; bmChecked : TBitmap; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin bmUnChecked := TBitmap.Create; bmUnChecked.LoadFromFile('d:\1.bmp'); bmChecked := TBitmap.Create; bmChecked.LoadFromFile('d:\1.bmp');{Добавляем битмапы в пункт меню начиная с 1 в PopUpMenu} SetMenuItemBitmaps( PopUpMenu1.Handle,1,MF_BYPOSITION,BmUnChecked.Handle,bmChecked.Handle);end;procedure TForm1.FormDestroy(Sender: TObject); begin bmUnChecked.Free; bmChecked.Free; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pt : TPoint; begin pt := ClientToScreen(Point(x, y)); PopUpMenu1.Popup(pt.x, pt.y);end; end.

- Возьми ImageList и не мучайся...Если правильно понял ход программы...

- Ты бы не мучился.. а использовал бы меню из палитры RX-библиотеки, люди уже это придумали раньше.

- "Возьми ImageList и не мучайся...Если правильно понял ход программы..."А как их взять?

- Добавляешь на форму TImageList. Загружаешь в него картинки. В свойстве ImageList компонента PopupMenu выбираешь добавленный тобой TImageList. В каждом пункте меню, в котором должна быть картинка, выбираешь в свойстве ImageIndex ту картинку, которая тебе нужна. Все.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD