Announcement

Collapse
No announcement yet.

Delphi3: TreeView zeigt so was ähnliches wie einen Hint an, wenn man mit dem Mauszeiger drüber fährt

Collapse
X
Collapse
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
Previous template Next
  • #1

    Delphi3: TreeView zeigt so was ähnliches wie einen Hint an, wenn man mit dem Mauszeiger drüber fährt

    Hallo, <p>

    ich habe den Effekt, daß ich in einem TreeView immer eine Art Hint angezeigt bekomme, wenn man mit dem Mauszeiger über den TreeView fährt. Es wird immer der Text eines Knoten angezeigt. Das lästige dabei ist, daß dieses Ding manchmal lange stehen bleibt und die Sicht auf den Baum versperrt. Ich habe ShowHint := False, ebenso ShowParentHint und ShowHint beim Formular auf False gesetzt.<br>
    Wer oder Was ist denn für diesen Effekt verantwortlich? Und wie kann ich dieses lästige Verhalten abschalten? Vielleicht ist es sinnvoll noch das Betriebssystem zu erwähnen, es ist Windows NT 4.0. Schon mal im voraus vielen Dank. <p>

    Gruß<p>

    Wolfgang Roller
    Tags: None
  • #2
    Hi,<br>
    <br>
    Tooltips:=false<br>
    <br>
    c

    Comment

    • #3
      Hallo Sinan,<p>

      danke für deinen Hinweis. Leider hat die TTreeView-Klasse von Delphi 3 keine ToolTips-Eigenschaft. Ab Delphi 4 schon. Leider bin ich an Delphi 3 gebunden. Das Programm ist für ein namhaftes deutsches Großunternehmen, das immerhin schon Delphi 3 einsetzt. <p>

      Gruß<p>

      Wolfgang Rolle

      Comment

      • #4
        <html>
        <head>
        <title>Fragment of Unit1.pas</title>
        </head>
        <!-- Generated by mwHtmlExport -->
        <body text="#000000" bgcolor="#FFFFFF">
        <code><pre>
        <font face="Courier New">Hi,
        Ob die Funktion auch mit Delphi3 klappt kann ich leider nicht testen.
        Naja.. einen versuch ist es wert ;-)<br><br>

        <b>procedure</b> SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean);
        <b>var</b>
        Style: Integer;
        <b>begin</b>
        <b>if</b> Ctl.HandleAllocated <b>then</b>
        <b>begin</b>
        Style := GetWindowLong(Ctl.Handle, GWL_STYLE);
        <b>if</b> <b>not</b> UseStyle <b>then</b> Style := Style <b>and</b> <b>not</b> Value
        <b>else</b> Style := Style <b>or</b> Value;
        SetWindowLong(Ctl.Handle, GWL_STYLE, Style);
        <b>end</b>;
        <b>end</b>;

        <b>procedure</b> TForm1.SetNoTooltip(Sender: TObject);
        <b>const</b> TVS_NOTOOLTIPS = $0080;
        <b>begin</b>
        SetComCtlStyle(treeview1, TVS_NOTOOLTIPS, True);
        <b>end</b>;
        <br>
        cu.
        </font>
        </pre></code>
        </body>
        </html&gt

        Comment

        • #5
          Hallo Sinan, <p>

          super! Funktioniert auch mit Delphi 3. Danke für deine Hilfe.<p>

          Gruß<p>

          Wolfgang Rolle

          Comment

          Previous template Next
          Working...
          X