我举一个例子把,当你们把光标停留在IE浏览器的‘文件’下的‘打开’时候
在IE浏览器下的状态栏里会出现“在该窗口中打开文档”的字样,应该怎样在生成事件呢?
有人讲在是“在控件的事件里!”我找了,都不见到。都没有这个事件,怎么办啊??我用的是MainMenu控件。

解决方案 »

  1.   

    每个 MENUITEM 都有 SHOWHINT 属性的,设为 TRUE,在HINT指定内容就好了,在状态栏显示的话,HINT值 是 hint1|statusbar_hint,hint1是鼠标移过显示的,status_hint 是在状态栏显示的
      

  2.   

    procedure TMainForm.FormCreate(Sender: TObject);
    begin
      Application.OnHint := ShowHint;
    end;procedure TMainForm.ShowHint(Sender: TObject);
    begin
      if Length(Application.Hint) > 0 then
      begin
        StatusBar.SimplePanel := True;
        StatusBar.SimpleText := Application.Hint;
      end
      else StatusBar.SimplePanel := False;
    end;