试试看~~
procedure TForm1.N2DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
if Selected then
begin //鼠标选中则执行
Acanvas.Font.Color := ClRed;
Acanvas.Fillrect(ARect);
Acanvas.Brush.Color := $00EDD8C6;
end
else begin //鼠标没有选中则执行
Acanvas.Brush.color := $00B9ECE8;
Acanvas.Fillrect(ARect);
Acanvas.Font.color := ClBlack;
end;
Acanvas.brush.Style:=bsclear;
Acanvas.textout(Arect.Left+16,Arect.Top,'打开');//这里的文件指的是你的菜单的Caption
end;
procedure TForm1.N2DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
if Selected then
begin //鼠标选中则执行
Acanvas.Font.Color := ClRed;
Acanvas.Fillrect(ARect);
Acanvas.Brush.Color := $00EDD8C6;
end
else begin //鼠标没有选中则执行
Acanvas.Brush.color := $00B9ECE8;
Acanvas.Fillrect(ARect);
Acanvas.Font.color := ClBlack;
end;
Acanvas.brush.Style:=bsclear;
Acanvas.textout(Arect.Left+16,Arect.Top,'打开');//这里的文件指的是你的菜单的Caption
end;
最好使用panel、speedbutton和几个popmenu实现你的要求。
他提供了源代码,你想怎么都行