Delphi - TListView komponens túl széles elemeire Hint ablak

forráskód letöltése
Néhány apró WinAPI függvény hívással könnyedén elérhetjük, hogy ha van egy olyan TListView komponensünk, melyben a benne lévő elemek szövegének a szélessége meghaladja a komponens szélességét és ezáltal nem látható a teljes szöveg, de a felhasználó egérrel az adott szöveg fölé áll, akkor egy kis súgó ablakban (Hint) megjelenjen a teljes szöveg. Első lépésként kell küldenünk egy üzenetet az adott TListView-nek az LVM_SETEXTENDEDLISTVIEWSTYLE konstanssal, mellyel a kiterjesztett stílusokkal kapcsolatos információkat adhatjuk meg. Ilyen például a fent leírt kis súgó ablakok használata, melyhez a LVS_EX_INFOTIP konstans használatos.

Hogy ezt a kis ablakot is elérhessük, le kell kérdeznünk a TListView komponenstől annak azonosítóját. Ezt a LVM_GETTOOLTIPS konstanssal küldött üzenetre kapjuk visszatérési értékként.

A továbbiakban már ennek az ablaknak küldhetjük az üzeneteket.

A TTM_SETDELAYTIME üzenetek az ablak megjelenési, eltűnési idejét szabályozzák.

A TTM_SETTIPBKCOLOR konstanssal a háttérszínt, míg a TTM_SETTIPTEXTCOLOR konstanssal küldött üzenetben a betű színét adhatjuk meg.