Wyświetlanie tekstu z hintów

0

Gdzie i jak powinienem zdefiniować w projekcie aby tekst z hintów tak jak w statusbar wyświetlał mi się na jednym z labeli ?
Bo na pewno jest jakiś sposób na odgórne zdefiniowanie tego aniżeli miałbym do każdego buttona dodawać zdarzenie w onmouseup

 statuslabel.caption:=button1.hint;

Statusbar nie wchodzi w grę, ponieważ jak największa przestrzeń robocza jest potrzebna, a mam część miejsca w innej lokalizacji wolne, która równie dobrze rzuca się w oczy.
Dziękuję za pomoc :)

0

A kto powiedział że StatusBar musi być na dole okienka?
Ustawiasz Align na alNone i ustawiasz, zmieniasz rozmiar StatusBar jak chcesz ponad to może on wyglądać zupełnie jak label wystarczy:
SizeGrip na False w Panels dodaj Panel u ustaw Bevel na pbNone no i oczywiście aby pokazywał Hint ustaw AutoHint = True

No ale jak sie upierasz na Label:

[***ciach***]
  private
    { Private declarations }
    procedure OnHint(Sender: TObject);
[***ciach***]

implementation

{$R *.dfm}

procedure TForm1.OnHint(Sender: TObject);
begin
  Label1.Caption:= Application.Hint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint:= OnHint;
end;
[***ciach***]

To samo można zrobić za pomocą ApplicationEvents

1 użytkowników online, w tym zalogowanych: 0, gości: 1