山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

请问如何改变MainMenu菜单的大小、如何设置菜单项Caption的属性、如何改变状态栏中显示的文字的颜色中？谢谢！

楼主weicf01（）2003-07-02 18:52:32 在 Delphi / VCL组件开发及应用提问

请问如何改变MainMenu菜单的大小、如何设置菜单项Caption的属性、如何改变状态栏中显示的文字的颜色中？谢谢！问题点数：30、回复次数：18Top

1 楼DWGZ（）回复于 2003-07-02 19:11:10 得分 7

1
procedure TForm1.nbv1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin

end;
2
MenuItem.Caption := 'sdlfjasf';

3
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin

end;
Top

2 楼weicf01（）回复于 2003-07-02 19:17:13 得分 0

谢谢，
还有一个问题，
如何设置Label标签上文字的大小和颜色，文字最大能有多大？Top

3 楼hansion3406（阿木㊣拖鞋男）回复于 2003-07-02 19:42:46 得分 3

呵
晕倒..
在属性编辑器中有一个FONT的属性..
你点进去就可以了..Top

4 楼weicf01（）回复于 2003-07-02 20:05:26 得分 0

我试一试Top

5 楼weicf01（）回复于 2003-07-02 20:08:17 得分 0

Label标签上文字的大小最多只能达到24吗？可不可以更大？Top

6 楼firstpaul（瞬间爱）回复于 2003-07-02 20:14:58 得分 3

这么大了还不行呀，你要干什么呢？
Top

7 楼tjff2000（fengyun）回复于 2003-07-02 20:17:07 得分 3

你还想要多大？Top

8 楼weicf01（）回复于 2003-07-02 20:19:24 得分 0

MainMenu菜单的大小的改变
procedure TForm1.nbv1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
／／应该怎么写？
end;
改变状态栏中显示的文字的颜色
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
／／应该怎么写？
end;
菜单项Caption的颜色如何改变呢？
我刚刚接触Delphi，所以还请大家照顾照顾，谢谢！
Top

9 楼weicf01（）回复于 2003-07-02 20:29:04 得分 0

Label标签上文字的大小最多只能达到24吗？
能否弄到在视觉效果上是24时的5～10倍大？Top

10 楼firetoucher（风焱）回复于 2003-07-02 22:23:29 得分 3

不是吧,那么大?窗口装的下么?你直接用api函数 TextOut得了,看msdn帮助Top

11 楼firetoucher（风焱）回复于 2003-07-02 22:23:48 得分 3

设置菜单的api
SetMenuItemInfoTop

12 楼weicf01（）回复于 2003-07-03 01:33:04 得分 0

如果已经对状态栏作如下改变
procedure TForm1.FormCreate(Sender: TObject);
begin
MISet.Hint := '设置...'；//MISet为一菜单项，当鼠标移到它上面时，
／／在状态栏上显示'设置...'
...
//将自定义提示函数句柄赋值给Application.OnHint属性
Application.OnHint:=HintHandler;
end;

//自定义提示函数
procedure TForm1.HintHandler(Sender: TObject);
begin
StatusBar1.Panels[0].Text := Application.Hint;
end;

如何让状态栏显示一些默认的文字
（也就是在鼠标移到菜单项上之前，一直显示在状态栏上的信息）
和设置其颜色？

Top

13 楼wel（）回复于 2003-07-03 11:49:04 得分 2

试试在设计时就修改好statusbar的固定显示内容Top

14 楼weicf01（）回复于 2003-07-03 13:57:19 得分 0

试试在设计时就修改好statusbar的固定显示内容?
Top

15 楼minercxy（Codewhy）回复于 2003-07-03 14:02:14 得分 3

字的大小可以直接在里面写啊“10000”Top

16 楼minercxy（Codewhy）回复于 2003-07-03 14:04:15 得分 3

你管他选择列表中的最大值是多少呢，他列出的最大值是24，你就在上面直接填上你需要的数（只要是正整数，呵呵）Top

17 楼weicf01（）回复于 2003-07-03 15:49:33 得分 0

如何改变状态栏中显示的文字的颜色中？谢谢！

如何让状态栏显示一些默认的文字
（也就是在鼠标移到菜单项上之前，一直显示在状态栏上的信息）
和设置其颜色？
Top

18 楼weicf01（）回复于 2003-07-03 15:51:23 得分 0

请问如何改变MainMenu菜单的大小？Top

19 楼weicf01（）回复于 2003-07-03 22:02:20 得分 0

helpTop