Scrooll do DBGrid

[jana... 0]

Olá!

 

Como faço para saber se o scroll de um DBGrid foi clicado? :unsure:

 

Obrigada,

Jana

[Aprendizporumavida 0]

Desculpe..mas saber se a scroll foi clicado, qual a finalidade disto...não consigo visualizar nada para trabalhar desta forma.

 

O que você gostaria de fazer, derepente temos outras melhores formas de fazer.

 

Não seria saber se o grid foi clicado?

 

abs

[marcio.theis 3]

Uma forma simples de se fazer é a seguinte, declare na seção private:

 

private
	{ Private declarations }
	AntigoGridProc: TWndMethod;
	procedure GridWindowProc(var Message: TMessage);

Depois no OnCreate do form:

 

procedure TForm1.FormCreate(Sender: TObject);
begin
AntigoGridProc:=DBGrid1.WindowProc;
DBGrid1.WindowProc:=GridWindowProc;
end;

 

E por fim a procedure:

 

procedure TForm1.GridWindowProc(var Message: TMessage);
begin
AntigoGridProc(Message);
if Message.Msg = WM_VSCROLL then
	ShowMessage('Scroll acionado !');
end;

Sendo que quando clicar no scroll vai emitir uma mensagem...