В примере создается обработчик события Application.Hint - подсказки меню изображаются на status Panel:

 

Code:

type

TForm1 = class(TForm)

   Panel1: TPanel;

   MainMenu1: TMainMenu;

   MenuItemFile: TMenuItem;

   MenuItemOpen: TMenuItem;

   MenuItemClose: TMenuItem;

   OpenDialog1: TOpenDialog;

   procedure FormCreate(Sender: TObject);

   procedure MenuItemCloseClick(Sender: TObject);

   procedure MenuItemOpenClick(Sender: TObject);

private

   {Private declarations}

   procedure HintHandler(Sender: TObject);

public

   {Public declarations}

end;

 

var

Form1: TForm1;

 

implementation

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Panel1.Align := alBottom;

MenuItemFile.Hint := 'File Menu';

MenuItemOpen.Hint := 'Opens A File';

MenuItemClose.Hint := 'Closes the Application';

Application.OnHint := HintHandler;

end;

 

procedure TForm1.HintHandler(Sender: TObject);

begin

Panel1.Caption := Application.Hint;

end;

 

procedure TForm1.MenuItemCloseClick(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TForm1.MenuItemOpenClick(Sender: TObject);

begin

if OpenDialog1.Execute then

   Form1.Caption := OpenDialog1.FileName;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить