Hint spezieller Controls in Statuszeile

[sakura]

Ich empfehle Dir einen relativ unbekannten Trick anzuwenden. Die Eigenschaft Hint ist eigentlich eine "Doppeleigenschaft". Dieser Hint nimmt den ShortHint und den LongHint auf. Diese kannst Du mit dem Pipe-Symbol "|" trennen.

Code:

kurzer Popup-Hint | Langer Message-Feld Hint

Wenn Du mit dem Pipe-Symbol startest, wird kein PopUp gezeigt und nur der lange genutzt. Im Application-OnHint-Eventhandler schreibst Du dann

Delphi-Quellcode:

procedure TfrmMain.ApplicationEvents1Hint(Sender: TObject);
begin
  if Pos('|', Application.Hint) > 0 then
    Memo8.Text := GetLongHint(Application.Hint)
  else
    Memo8.Text := '';
end;

......