Statusbar-OnHint-Bug?

[SearchBot]

Hallo,

ich arbeite noch mit Delphi4, vielleicht liegt es daran.
Wenn ich eine Statusbar auf mein Form1 bringe und statusbar.Autohint auf true stelle (Simplepanel=true), dann wird mir korrekt beim Hint-anzeigen des Controls auch der Hint in der Statusbar angezeigt.

Aber WEHE! wenn ich jetzt eine Definition für Statusbar.OnHint anlege - selbst wenn *nichts* drinsteht - geht die Autohint-Funktion verloren.

Ich wollte nämlich, daß ich abhängig von einem Button.tag unterschiedliche Hints beim draufzeigen anzeigen kann (tag=1 -> 'wird bearbeitet'; tag=0 -> 'normaler modus'). DANN bringt Statusbar im Onhint nur dann die Anzeige, wenn der .Tag true ist (if button.tag>0 then ..); ein inherited bringt garnix (in manchen Events bringt das was).

Was ich jetzt nicht verstehe (Bug?) ist, wenn die (auch leere) Definition für OnHint angelegt ist, daß dann Autohint nicht mehr funktioniert und es auch partout nicht zu überlisten ist (zumindest hab ich es nicht geschafft).

In der Hilfe ist auf dieses Verhalten kein Hinweis zu finden.

* Wie kommt das?
* Wie überliste ich das?

[Luckie]

Warum ist das ein Bug? Du weißt dem Statusfenster ein leeres OnHint Ereignis zu. Wie soll sie denn da noch einen Hint anzeigen?

[SearchBot]

Hä?
Tue ich das?

Wenn das angelegt ist (oder so ähnlich):

Delphi-Quellcode:

procedure TForm1.Statusbar1OnHint(sender:TObject);
begin
//hier steht nichts, was irgendwie was bewirken könnte
//es ist einfach nur angelegt
end;

Dann kann ich dorthinein laut Hilfe etwas schreiben, was noch VOR dem Anzeigen des Statustextes abgearbeitet wird. Nun steht da aber nichts drin, also wird da auch nichts abgearbeitet und die bisherige Logik von leeren Ereignisproceduren sagte mir: "wo nix drinsteht, wird nix am Ablauf verändern" - aber dort schon, denn plötzlich fällt die Hint-Anzeige-Funktion aus.

Normal würde ich erwarten, daß ich dorthinein Ausnahmen programmiere, zB "if soundso then .. " und sonst passiert nichts.
Aber in diesem Fall verliert sich *allein durch das einfache Anlegen* der procedure urplötzlich die Autohint-Funktion, welche mir die Hints von beliebigen Objekten nur durch das Drüberfahren mit der Maus anzeigt - aber eben nicht mehr, wenn die *leere* Procedure im Code steht.

Gibts das oder bin ich bekloppt?

[Hawkeye219]

Hallo SearchBot,

wenn du einen Handler für TStatusBar.OnHint definierst, dann mußt du dort die Ausgabe des Hinweistextes selbst übernehmen bzw. veranlassen, beispielsweise durch eine Zuweisung zu TStatusBar.SimpleText. Ist kein Handler definiert, dann übernimmt die TStatusBar selbst diese Ausgabe.

Für die Umsetzung deines Vorhabens benötigst du lediglich einen Handler für das Ereignis TApplication.OnShowHint, dort kannst du alle notwendigen Aktionen durchführen. Der Beispielcode zeigt, wie ein Hint für Button1 in Abhängigkeit seines Tag-Wertes definiert werden kann.

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    {...}
  private
    procedure ShowMyHint (var HintStr: string;  var CanShow: Boolean;  var HintInfo: THintInfo);
  end;

procedure TForm1.FormCreate (Sender: TObject);
begin
  Application.OnShowHint := ShowMyHint;
end;

procedure TForm1.ShowMyHint (var HintStr: string;  var CanShow: Boolean;  var HintInfo: THintInfo);
var
  s : string;
begin
  if (HintInfo.HintControl = Button1) then
    begin
      case HintInfo.HintControl.Tag of
        0: s := 'normaler Modus|Der Tag-Wert ist 0';
        1: s := 'wird bearbeitet|Der Tag-Wert ist 1';
      else
        s := '';
      end;
      HintInfo.HintControl.Hint := s;
      HintStr := GetShortHint(s);
    end;
end;

Delphi4 habe ich auf meinem PC nicht installiert, ich konnte den Code nur mit Delphi6 testen.

Gruß Hawkeye