Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.15;
Скачать: CL | DM;

Вниз

Grid   Найти похожие ветки 

 
ViJen   (2003-07-15 15:48) [0]

Мастера добрый день!
Ответьте пожалуйста - grid поставленный на форму уже не является окном и не получает сообщений?
Конкретно что бы хотелось сделать - это поймать сообщение на прокрутку grid"a и скрывать столбцы по мере прокрутки.
Это реально сделать?


 
clickmaker ©   (2003-07-15 15:53) [1]

А с чего бы ему перестать быть окном? WM_HSCROLL, WM_VSCROLL


 
Prov ©   (2003-07-15 15:56) [2]

Лови сообщения: WH_HSCROLL и WM_VSCROLL


 
ViJen   (2003-07-15 15:57) [3]

Для формы я понимаю как написать процедуру - а как для грида?
конкретно - где ее объявить?


 
[lamer]Barmaglot ©   (2003-07-15 16:13) [4]

Там же где для окна?


 
ViJen   (2003-07-15 16:21) [5]

В общем для формы это выглядит так
объявление:
procedure WMHSCROLL(var Message: TWMHSCROLL); message WM_HSCROLL;

потом использование допустим:

procedure TfrmMAin.WMHSCROLL(var Message: TWMHSCROLL);
begin
inherited;
beep;
end;

а как написать для грида правильно?


 
clickmaker ©   (2003-07-15 16:23) [6]

procedure NewGridProc(var Message: TMessage);
FOldGridProc: TWndMethod;

FOldGridProc := Grid.WindowProc;
Grid.WindowProc := NewGridProc;

procedure TForm1.NewGridProc(var Message: TMessage);
begin
case Message.Msg of
( Message) procedure NewGridProc(var Message: TMessage);
FOldGridProc: TWndMethod;

FOldGridProc := Grid.WindowProc;
Grid.WindowProc := NewGridProc;

procedure TForm1.NewGridProc(var Message: TMessage);
begin
case Message.Msg of
WM_HSCROLL:
...
FOldGridProc(Message); // не забыть вызвать для необрабатываемых сообщений
end;




 
ViJen   (2003-07-15 17:01) [7]

Спасибки! Все понятно.



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
1-48644
ossa
2003-09-03 07:26
2003.09.15
Пожскажите, как при создании ехе-файла поменять стандарт-ю иконку


14-48768
Palladin
2003-08-25 16:26
2003.09.15
Однако :))


3-48440
stud
2003-08-25 10:55
2003.09.15
sql запрос ...........


3-48461
reticon
2003-08-26 11:04
2003.09.15
Dynamic SQL


14-48747
Giemgo
2003-08-26 18:36
2003.09.15
Зачем мы нужны?