VPF::Autohint в TTBXStatusbar - Форум программистов

andrey_pst

Дата 18.1.2006, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 37
Регистрация: 24.4.2003
Где: Пермь

Репутация: 1
Всего: 1

Как сделать, чтобы компонент TTBXStatusbar автоматически показывал Hint'ы меню и кнопок панели управления?
Свойства Autohint я у этого компонента не нашел.

Это сообщение отредактировал(а) andrey_pst - 18.1.2006, 19:54

Snowy

Дата 18.1.2006, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Ну, навскидку, можно так:
Кидаем на форму TApplicationEvents.
Выбираем событие OnHint.
Пишем код:

Код


procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
var
  c: TControl;
begin
  c:=ControlAtPos(ScreenToClient(Mouse.CursorPos), true, true);
  if Assigned(c) then
  begin
    if c.Hint <> '' then TBXStatusbar1.Text := c.Hint;
  end else TBXStatusbar1.SimpleText := '';
  inherited;
end;

Rrader

Дата 20.1.2006, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Controls, Forms, Dialogs,
  TBXStatusBars;

type
  TForm1 = class(TForm)
    TBXStatusBar1: TTBXStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure OnAppHint(Sender: TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := OnAppHint;
  TBXStatusBar1.SimplePanel := True;
end;

procedure TForm1.OnAppHint(Sender: TObject);
begin
  TBXStatusBar1.SimpleText := Application.Hint;
end;

end.

--------------------

Let's do this quickly!
Rest in peace, Vit!

andrey_pst

Дата 20.1.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 37
Регистрация: 24.4.2003
Где: Пермь

Репутация: 1
Всего: 1

Rrader, спасибо
Хотел повысить вам репутацию, но получил ошибку:

Код


Обнаружена ошибка:
У Вас недостаточно постов, чтобы изменять репутацию пользователей. Необходимо 100 постов.

Так что извиняйте.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »