Как сделать так,чтобы при паведении на один из пунктов TMainMenu-TMenuItems
hint появлялся в StatusBar'е,но для отальных компонентов он там
не дожен высвечиваться.

Здравствуйте, tormentor, Вы писали:

Прописать у него hint, у остальных очистить.

Здравствуйте, wildwind, Вы писали:

W>Прописать у него hint, у остальных очистить.

В том-то и дело что надо чтоб у остальных hint не в StatusBar'е высвечивался!!!

Здравствуйте, tormentor, Вы писали:

T>В том-то и дело что надо чтоб у остальных hint не в StatusBar'е высвечивался!!!
А где?

Здравствуйте, wildwind, Вы писали:

T>>В том-то и дело что надо чтоб у остальных hint не в StatusBar'е высвечивался!!!
W>А где?

Только не в StatusBar'e
Например в маленьком окошечке подсказок

Нужно только чтоб Хинты менюшек в СтатусБаре высвечивались...

Здравствуйте, tormentor, Вы писали:

T>Как сделать так,чтобы при паведении на один из пунктов TMainMenu-TMenuItems
T>hint появлялся в StatusBar'е,но для отальных компонентов он там
T>не дожен высвечиваться.

Сделай так:
Забери AutoHint у статус бара: StatusBar1.AutoHint := False
Перекрой на своей форме функцию ExecuteAction. Пример приведен ниже

TForm1 = class (TForm)
protected
  function ExecuteAction(Action: TBasicAction): Boolean; override;
  ...
end;
...

function TForm1.ExecuteAction(Action: TBasicAction): Boolean;
var
  aHintText : string;
begin
  Result := inherited ExecuteAction (Action);
  if (Action is THintAction) then begin
    with THintAction (Action) do begin
      aHintText := Hint;
      if aHintText = 'File Hint' then
        aHintText := '' { Не показывать хинт }
      else
      if aHintText = 'File Hint 2' then
        aHintText := '' { Не показывать хинт }
      else
      { И так далее }
      { Проверки можеш организовать как хочеш. Иначе как по тексту хинта сделать это не представляется возможным (в простой реализации) }
    end;
    StatusBar1.SimpleText := aHintText;
  end;
end;

Удачи!

Hello, tormentor!
You wrote on Wed, 20 Apr 2005 15:55:03 GMT:


t> Нужно только чтоб Хинты менюшек в СтатусБаре высвечивались...

OnHint

if Sender is TMenuItem then
StatusBar1.Panels[0] := TComponent(Sender).Hint


With best regards, Alexander Diouzshev-Maltsev.

Здравствуйте, Danchik, Вы писали:


D>function TForm1.ExecuteAction(Action: TBasicAction): Boolean;
D>var
D> aHintText : string;
D>begin
D> Result := inherited ExecuteAction (Action);
D> if (Action is THintAction) then begin <<

Delphi пишет что THintAction Неизвестный идентификатор!

Здравствуйте, Diouzshev, Вы писали:

D>OnHint

D>if Sender is TMenuItem then
D> StatusBar1.Panels[0] := TComponent(Sender).Hint

Delphi пишет,что Sender Неизвестный идентификатор...

Здравствуйте, tormentor, Вы писали:

T>Здравствуйте, Danchik, Вы писали:


D>>function TForm1.ExecuteAction(Action: TBasicAction): Boolean;
D>>var
D>> aHintText : string;
D>>begin
D>> Result := inherited ExecuteAction (Action);
D>> if (Action is THintAction) then begin <<

T>Delphi пишет что THintAction Неизвестный идентификатор!

Забыл упомянуть что THintAction валяется в юните StdActns
А Help батенька иногда почитывать надо

Здравствуйте, tormentor, Вы писали:

T>Как сделать так,чтобы при паведении на один из пунктов TMainMenu-TMenuItems
T>hint появлялся в StatusBar'е,но для отальных компонентов он там
T>не дожен высвечиваться.

Попробуй так :

TMainForm = Class(TForm)
....
Private
    procedure DisplayHint(Sender: TObject);
End;

Implementation

.....

procedure TMainForm.FormShow(Sender: TObject);
Begin
  Application.OnHint := DisplayHint;
end;


......


procedure TMainForm.DisplayHint(Sender: TObject);
begin
 StatusBar.SimpleText := GetLongHint(Application.Hint);
end;

Желаю удачи.

Спасибо всем ответившим.
Всё получилось.