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

Вниз

Скролл в TListView   Найти похожие ветки 

← →
Tyo   (2003-02-13 18:17) [0]

Подскажите пожалуйста, как в TListView (в режиме vsReport)отследить события изменения ширины колонок и горизонтального скроллинга?
Заранее благодарен.

---

← →
smok_er   (2003-02-13 19:11) [1]

Недавно делал такое для вставки inpace edit"ов.
Надо переопределить оконную процедуру.


var
Form1: TForm1;
OldWindowProc : Pointer;

function NewWindowProc(WindowHandle: hWnd; TheMessage: LongInt; ParamW : LongInt; ParamL: LongInt): LongInt stdcall;
begin
if (TheMessage = WM_HSCROLL) or (TheMessage = WM_VSCROLL) then
...

NewWindowProc := CallWindowProc(OldWindowProc, WindowHandle, TheMessage, ParamW, ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OldWindowProc := Pointer(SetWindowLong(lv.Handle, GWL_WNDPROC,
LongInt(@NewWindowProc)));
end;


---

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

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

Наверх

Память: 0.46 MB
Время: 0.023 c