Button -> Hint -> Länger anzeigen

[HolgerCW]

Hallo zusammen,

wenn man "Hint" bei einem Button einschaltet, kann man ja einen Hilfetext anzeigen lassen.

Wenn man mit der Maus über diesen Button geht, wird der Text nur eine gewisse Zeit angezeigt. Kann man diese Zeit verlängern, oder es so einstellen, das der Hilfetext so lange angezeigt wird, wie man mit der Maus über dem Button ist ?

Gruss

Holger

[shmia]

Delphi-Quellcode:

Application.HintHidePause := 10000; // 10 Sekunden

siehe auch Hintcolor, HintPause, HintShortPause

[bitsetter]

Hallo,

wenn du die Anzeigedauer des Kurzhinweises nur für ein bestimmtes Control ändern möchtest, dann kannst du auch die Komponente TApplicationEvents benutzen.
Im onShowHint Ereignis kannst du das Control abfragen und die Anzeigedauer des Kurzhinweises manipulieren.

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  if HintInfo.HintControl is TButton then
    HintInfo.HideTimeout:= 10000;
end;

[HolgerCW]

Vielen dank für die Infos

Gruss

Holger

[celleve]

Danke, Aber woran liegt das, dass er das nur manchmal anzeigt, is voll komisch!!!! Ich habe alles normal gemahct, habe auf den Text geklickt, im Objektinspektor showhint true gesetzt und was bei hint reingeschrieben!! Aber der zeig die Meldung nur ganz selten an!! Muss ich das ncoh irgendwo im Programmtext schreiben!?!?

Danke

[HolgerCW]

Auf welchen Text hast Du geklickt ? In diesem Thema geht es darum, dass wenn Du mit der Maus über einen Button gehst (ohne klicken), dass der Hint-Text angezeigt wird und man die Anzeigedauer des Hint-Textes verlängert

[celleve]

Danke, aber ich habe es hinbekommen!! UNd mit text geklickt, meinte ich den im Layout, also um auch den Text zu haben!

[BetaBot]

Hallo Delphi - Gemeinde,

bitsetter hat zum Thema folgendes geschrieben:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String; 
  var CanShow: Boolean; var HintInfo: THintInfo); 
begin 
  if HintInfo.HintControl is TButton then 
    HintInfo.HideTimeout:= 10000; 
end;

Und nun meine Frage: Wie kann ich denn die Anzeigedauer für einen speziellen Button verlängern?

Delphi-Quellcode:

if HintInfo.HintControl is MyButton1 then ...

hat nicht funktioniert.

Danke,

BetaBot

[Apollonius]

is prüft, ob ein Objekt eine Instanz einer bestimmten Klasse oder einer ihrer Ableitungen ist. Zum Vergleichen von Objekten gibt es den =-Operator.

[BetaBot]

du meine Güte :oops:

na klar, Danke.