系统菜单问题，难哦(100分)

关

关月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #1

我在窗体的系统菜单上加了一项“关于”，请问
如何在它前面加一个图标

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #2

用Imagelist
设置关联

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #3

var//两个全局变量
bmp : TBitmap;
bmp1 : TBitmap;

bmp := TBitmap.Create;
bmp1 := TBitmap.Create;
bmp.LoadFromFile('F:/Borland/Common Files/Borland Shared/Images/Icons/CHEM16.bmp');
bmp1.LoadFromFile('F:/Borland/Common Files/Borland Shared/Images/Icons/CHEM16.bmp');

SetMenuItemBitmaps(GetSystemMenu(handle,false),8,MF_BYPOSITION,bmp1.Handle,bmp.Handle);//8是菜单序号

 

W

wjh_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #4

procedure TImgMain.FormCreate(Sender: TObject);
var
Img:TBitmap;
begin
Img:=Tbitmap.Create;
Img.LoadFromFile('C:/WINNT/Zapotec.bmp');
菜单名称.Bitmap:=Img;
end;
或者To影 子

 

N

newfat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #5

我KAO，这也叫难哦？
设MENU的images为一IMAGELIST控件
设MENUITEM的imageindex为图标的序列号

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #6

var
b:Tbitmap;
procedure TForm1.FormCreate(Sender: TObject);
var
h:hmenu;
begin
h:=getSystemMenu(handle,false);
b:=Tbitmap.create;
b.LoadFromFile('d:/test.bmp'); // 16X16
InsertMenu(h,0 ,MF_BYPOSITION or MF_STRING,0,'的新添的菜单');
SetMenuItemBitmaps(h,0 ,MF_BYPOSITION ,b.handle,b.handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
b.free;

end;

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #7

up

 

关

关月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #8

多人接受答案了。