ListBox долгие подсказки объектов

Question

ListBox долгие подсказки объектов

Архитектор предприятия от систем Sparx является лучшим инструментом, который я использовал. Немного дорогой на уровне 199$ (профессиональный выпуск), но IMO это стоит того.

8

delphi vcl

задан b1nary.atr0phy 3 April 2013 в 23:17

1 ответ

Другие вопросы по тегам:

delphi vcl

Похожие вопросы:

score 11 · Accepted Answer

var fOldIndex: integer = -1;

procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
var lstIndex : Integer ;
begin
  with ListBox1 do
  begin
   lstIndex:=SendMessage(Handle, LB_ITEMFROMPOINT, 0, MakeLParam(x,y)) ;

   // this should do the trick..
   if fOldIndex <> lstIndex then
     Application.CancelHint;
   fOldIndex := lstIndex;

   if (lstIndex >= 0) and (lstIndex <= Items.Count) then
     Hint := Items[lstIndex]
   else
     Hint := ''
   end;
end;