Balloon Tips

[Die Muhkuh]

An Delphi liegt es nicht, sonst würde die Exe oben auch bei uns nicht funkionieren. Das muss was bei Dir sein.

[celleve]

Jetzt geht es!!! Mit dem Text von Fussball-Robby! DANKE!

FREU FREU FREU

DANKE
DANKE

edit: Nochmal ne Frage, bekomme ich den Text auch so hin, das er da Zeilenumbrüche macht, sodass der Text nicht so lang ist??

Danke

[bitsetter]

Ja geht, im Ereignis doShowHint der Komponente TApplicationEvents schreibst du folgenden Code rein:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  HintInfo.HintMaxWidth:= 120;
end;

[Die Muhkuh]

Wobei ich empfehlen würde, keine zu langen Texte als Hint einzufügen.

[bitsetter]

Warum denn, bei einigen Programmen habe ich sogar schon sehr lange Hinweistexte gesehen.

[Die Muhkuh]

Der Hint stellt, zumindest für mich, ein kurzer Hinweistext bzw. kleinen Tipp dar und kein Hilfe-Ersatz.

[Fussball-Robby]

Sehe ich auch so. Und man schaue sich nur mal die Übersetzung von Hint an: Andeutung, Hauch, Hinweis, Spur, Tipp. Hört sich nicht nach langen Texten an

[bitsetter]

Das kommt natürlich ganz drauf an, was man anzeigen möchte. Bestes Beispiel sind doch die Hilfehinweise in Delphi, wenn man sich beim Debuggen die Inhalte von Variablen anzeigen lässt. Bei großen Datenstrukturen oder Arrays wird dann locker der untere Bildschirmbereich ausgefüllt.

Aus der Onlinehilfe über die Eigenschaft Hint:

Zitat:

Der Eigenschaft kann auch ein String zugewiesen werden, der den Benutzer über Vorgänge, Fehler oder sonstiges informiert.

[Fussball-Robby]

Natürlich kommt es auf den Inhalt an. Will man den Inhalt von TStrings oder einem Array anzeigen, muss der Hint schon was größer sein, weil die Daten in dem Fall von Bedeutung sein können. Einen Hinweistext kann man aber verkürzen, ohne dass wichtige Infos verloren gehen.

[celleve]

Sorry, wenn ich mich ein wenig dumm anstelle, aber ich weiß leider nciht, wo ich das reinschreiben soll?

Soll das rein:

Delphi-Quellcode:

   procedure ThauptForm.untertitelboxMouseMove(Sender: TObject;            
                                               Shift: TShiftState; X, Y: Integer);
  begin
   Application.ActivateHint(Mouse.CursorPos);                              
  end;

Oder wo soll ich das genau reinmachen?

Danke für die Hilfe!