Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 446
  • Last Modified:

Show hints on statusbar


Dear Experts,

I have used the ActionList component for my MainMenu. So my MainMenu is working
great without any code. Event the property Hint is automaticly filled in of each menu-item.
I have also a statusbar. What do I have to do that when i select a menu-item that the
hint of the menu-item will be showned in my statusbar.

Greetings Pk
0
peterkiers
Asked:
peterkiers
  • 4
  • 3
1 Solution
 
ThievingSixCommented:
This might be helpful:
unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList, ComCtrls;
 
type
  TMenuItem = class(Menus.TMenuItem)
    private
      FStatusBar: TStatusBar;
    protected
      procedure AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState; TopLevel: Boolean); override;
    public
      property StatusBar: TStatusBar read FStatusBar write FStatusBar;
  end;
 
type
  TForm4 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Close1: TMenuItem;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect;
  State: TOwnerDrawState; TopLevel: Boolean);
begin
  inherited;
  If (odSelected in State) And (Assigned(FStatusBar)) Then
    begin
    FStatusBar.SimpleText := Hint;
  end;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
  New1.StatusBar := StatusBar1;
  Close1.StatusBar := StatusBar1;
  Statusbar1.SimplePanel := True;
end;
 
end.

Open in new window

0
 
peterkiersAuthor Commented:
This is not exactly what i am looking for.

Greetings,

Peter Kiers
0
 
peterkiersAuthor Commented:
I think it could be don easer, but I don't know how.
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
ThievingSixCommented:
What exactly are you looking for? I assumed from your original question that you wanted the selected menu item's hint to be shown on your status bar.

I am also unsure as do what you mean on how it can be done easier? It's a pretty simple solution(as simple as I could tell) because there is no event for when your item is selected directly.

Maybe you could help me help you?
0
 
peterkiersAuthor Commented:
I think this is a way to start:

private
  procedure MyHint(Sender: TObject);
end;
 

implementation

 {....}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := MyHint;
  ShowHint           := True;
  Button1.Hint       := 'normal yellow hint|Text in Statusbar';
  Button2.Hint       := 'only yellow hint|';
  Button3.Hint       := '|text only in statusbar';
  Edit1.Hint         := 'same text';
end;

procedure TForm1.MyHint(Sender: TObject);
begin
  StatusBar1.SimpleText := Application.Hint;
end;

But how to tell the system to use the proprty hint of every menu-item

Greetings,

Peter Kiers
0
 
ThievingSixCommented:
I guess you could use the message WM_MENUSELECT to catch the event as in: http://delphi.about.com/od/vclusing/a/menuitemhints.htm

But I still think my way is cleaner.
0
 
peterkiersAuthor Commented:
Thanks for the info.

Peter K.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now