Author Topic: displaying long TListbox items as hints  (Read 2811 times)


  • Full Member
  • ***
  • Posts: 126
displaying long TListbox items as hints
« on: November 02, 2010, 10:22:17 am »
i have this code

Code: [Select]
procedure TfrmMain.lstVideoMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
   lstIndex: integer;
   lstIndex:= lstVideo.GetIndexAtXY(X,Y);
   if (lstIndex >=0) and (lstIndex <= lstVideo.Items.Count) then begin
       lstVideo.Hint:= lstVideo.Items[lstIndex];
   end else begin

and every time i move the mouse on the next item on the TListbox (lstVideo) it does not show the hint intended for it, what it shows is the previous lstVideo item hint, the tooltip's hint is stuck at that previous item, so how can i fix this

thanks for any responses


and im getting this warning each time i compile
Code: [Select]
umain.pas(40,49) Hint: Parameter "Shift" not usedi dont even know what is the use of shift or how to implement it on the code above so any help on this too will be great
« Last Edit: November 02, 2010, 10:36:48 am by ios »


TinyPortal © 2005-2018