系统菜单有没有hint属性？我看VC的程序的系统菜单在状态栏中都有hint，为什么Delphi没有？(50分)

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #1

系统菜单有没有hint属性？我看VC的程序的系统菜单在状态栏中都有hint，为什么Delphi没有？

 

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #2

没有人知道吗？

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #3

封装底时候忘了？
vc实现那个效果也是需要技巧的，上次看到过，忘了在哪儿了

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #4

有的，
在 FormCreate中写：
Application.OnHint := ShowHint;
再：
procedure TfrmMain.ShowHint(Sender: TObject);
begin
StatusBar1.Panels[0].Text := Application.Hint;
end;
就ok了。

 

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #5

to hamsoft:
我说的是系统菜单（还原、移动、大小、最大化、最小化、关闭），不是程序自己的菜单。

有人会吗？

 

月

月满西楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #6

那是用消息处理的。
procedure MenuSelect(var Msg:TMessage); message WM_MENUSELECT;

procedure TForm1.MenuSelect(var Msg: TMessage);
begin
if (Hiword(msg.wParam) and MF_SYSMENU)=MF_SYSMENU then
case Loword(msg.wparam) of
SC_CLOSE: StatusBar1.SimpleText := 'Close';
SC_MOVE: StatusBar1.SimpleText := 'Move';
SC_SIZE: StatusBar1.SimpleText := 'Resize';
end;
Msg.Result := 0;
end;

 

T

Tomorrows

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #7

接受答案了.