Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Stel je hebt een ListBox of b.v. een CheckListBox en je wilt voor elk item in de lijst een aparte hint zichtbaar maken ... hoe doen we dat?
Hiervoor kun je het OnMouseMove event van de ListBox gebruiken. Let wel dat ShowHint:=TRUE voor de ListBox.
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var ItemOnderMouse:integer;
begin
ItemOnderMouse:=ListBox1.ItemAtPos(Point(X,Y),true);
if (ItemOnderMouse>-1) and (ItemOnderMouse<ListBox1.Count) then
begin
// Hier maken we een unieke hint voor een item
ListBox1.Hint := 'Een unieke hint voor '+ListBox1.Items[ItemOnderMouse];
end
else
ListBox1.Hint:='Dit is de standaard listbox hint, de muis is niet over een item';
Application.ActivateHint(ClientToScreen(Point(X,Y)));
end;
