asked on

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

ThievingSix

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

Peter Kiers

ASKER

This is not exactly what i am looking for.

Greetings,

Peter Kiers

Peter Kiers

ASKER

I think it could be don easer, but I don't know how.

ThievingSix

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?

Peter Kiers

ASKER

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

ASKER CERTIFIED SOLUTION

ThievingSix

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Peter Kiers

ASKER

Thanks for the info.

Peter K.