在From中如何实现消息？在线等

[wukang]

这是在VC中的表示
BOOL CTack:PreTranslateMessage(MSG* pMsg)
{
return CDialog::PreTranslateMessage(pMsg);
}
在DELPHI中如何实现呢？
我主要是想根据1个状态值来判定是否开启一个菜单，用消息机制就简单些，不用在每个需要的地方都写上语句

[wukang]

两个问题都已解决，呵呵，3X各位

[mrtxc]

对啊， DWGZ() 的方法可以呀，我也经常这样做

[MMisLady]

用Sendmessage或PostMessage发消息然后如下处理

function PreTranslateMessage(Msg: Tmessage):Tmessage
begin
if Msg.msg=1 then
.........
end;

[GreenWaterBlueSky]

楼上的，好象消息都是用procedure吧

[DWGZ]

用Action

procedure TForm1.Action1Update(Sender: TObject);
begin
TAction(Sender).Enable := 你的判断
end;

控件的Action设置一下OK

[zjqyb]

替换Application.OnMessage

[wukang]

check:Boolean;

if check then
Menu1.Enable:=true;
else
Menu1.Enable:=false;

check在程序中我是动态改变的，我想我的Menu1的启用也是动态的

然后楼上的朋友提的方案我试了一下，行不通，有别的方法吗？

[duxin]

靠 怎么来回复不了


用zjqyb()的方法 替换掉他

在自己的过程中 写明要做的处理 (不过Application.OnMessage 只检索消息队列的）

Application.OnMessage：＝form1.xxxxx

[wukang]

？？？

[DWGZ]

怎么行不能
procedure TForm1.Action1Update(Sender: TObject);
begin
TAction(Sender).Checked := yourcheck
end;