Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Помогите найти или сделать самму LISTBOX...   Найти похожие ветки 

← →
Batoon ©   (2004-04-09 14:31) [0]

чтоб в нем если строчка вся не умещается то после наведения мышки прокручивалась строка до конца и обратно.

---

← →
tpa   (2004-04-09 15:11) [1]

А если попробовать Hint и     procedure CMHintShow(var Msg : TMessage); message CM_HINTSHOW;

---

← →
pasha_golub ©   (2004-04-09 15:18) [2]

tpa   (09.04.04 15:11) [1]
Не пойдет, потому как в родителе procedure CMHintShow(var Msg : TMessage); message CM_HINTSHOW; объявлен в секции private, следовательно нужно отлавливать соощение в wndproc


TMyListBox = class(TLIstBox)
protected
 procedure WndProc(var Message: TMessage); override;
end;

implementation

procedure TMyListBox.WndProc(var Message: TMessage);
var  HI: PHintInfo;
begin
if Message.Msg = CM_HINTSHOW then
   begin
     HI := pointer(Message.LParam);
       with HI^ do
         begin
           with CursorPos do
             ...
               HintStr := ...
               HintPos := ...;
               ReshowTimeout := MaxInt;
               Message.Result := 0;
             end
           else
             Message.Result := 1;
         end;
     end; //cm_hintshow
end;


---

← →
pasha_golub ©   (2004-04-09 15:19) [3]

Вообщем, в посте есть ошибки, но идея, у думаю, ясна.

---

← →
Batoon ©   (2004-04-09 17:25) [4]

Спасибо ВСЕМ!!!

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.032 c