Evento de click no titulo do DBGrid?

Question

OlaGostaria de saber se tem como mostrar uma mensagem quando o usuario der um clique no titulo de uma coluna do DBGrid? Observa��o: O clique tem que ser com mouse lado direito, pois hoje ja existe ume...

Fernando Piccini · Answer

Alguem poderia me ajudar????vlw...

Fernando Piccini · Answer

Alguma sugest�o pessoalvlw...

Mrmarcelojr · Answer

Kra, s�rio, jah tentei de tudo mas naum consegui.........fera, qdo vi q vc era de xxe fiquei ateh meia noite e meia tentando......ms seguinte....

Tenta acha alguma fun��o que campture a tecla direita do mouse.......
da uma procurada nda API controls, lah deve ter alguma coisa....

Desculpe, ms naum pude lhe ajudar muito neh.... :oops:

R�mulo Barros · Answer

Use o evento OnTitleClick do seu DBGrid.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
   ShowMessage(�Nome da coluna: � + Column.Field.DisplayLabel);
end;

Fernando Piccini · Answer

Bem! mas gostaria que este evento acontecesse quando quando fosse clicado com o bot�o direito no titulo.

mas mesmo assim agrade�o pela aten��o e se alguem puder contribuir ficaria grato :D

vlw

Adriano Santos · Answer

[quote:8d3b6d534c=�fernandopiccini�]Bem! mas gostaria que este evento acontecesse quando quando fosse clicado com o bot�o direito no titulo.mas mesmo assim agrade�o pela aten��o e se alguem puder contribuir ficaria grato :Dvlw[/quote:8d3b6d534c]To tentando, tb...se conseguir algo eu posto....

R�mulo Barros · Answer

Declare uma vari�vel global:[code:1:a6d86462cd]     MyButton: TMouseButton ;[/code:1:a6d86462cd]No evento OnMouseDown do dbgrid fa�a:[code:1:a6d86462cd]procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin   MyButton := Button;   If(Button = mbRight)Then     DBGrid1TitleClick(DBGrid1.Columns&#91;0&93;);end;[/code:1:a6d86462cd]No evento OnTitleClick do dbgrid fa�a:[code:1:a6d86462cd]procedure TForm1.DBGrid1TitleClick(Column: TColumn);begin   If(MyButton = mbRight)then   Begin      ShowMessage(�Nome da Coluna: � + Column.DisplayName);   End;end;[/code:1:a6d86462cd][b:a6d86462cd]Acho q isso j� ir� ajudar um pouco.[/b:a6d86462cd]...

Martins · Answer

A minha solu��o seria essa.[b:133f5cd7ed]Criaria uma variavel global  [color=red:133f5cd7ed]N: Integer[/color:133f5cd7ed] [/b:133f5cd7ed]No evento [b:133f5cd7ed]OnColEnter[/b:133f5cd7ed] eu colocaria.[code:1:133f5cd7ed]procedure TFxxxxxx.DBGrid1ColEnter(Sender: TObject);begin   n:= DBGrid1.SelectedIndex;end;[/code:1:133f5cd7ed]No evento [b:133f5cd7ed]OnMouseDown[/b:133f5cd7ed] eu colocaria.[code:1:133f5cd7ed]procedure TFxxxxx.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  if button = mbRight then    ShowMessage(�Coluna: � + DbGrid1.Columns&#91;n&93;.FieldName);end;[/code:1:133f5cd7ed]Seria isso, agora fica por conta de seu talendo de desenvolvedor.Boa Sorte!!...

R�mulo Barros · Answer

[quote:2ad59b500a=�Martins�]A minha solu��o seria essa.[b:2ad59b500a]Criaria uma variavel global  [color=red:2ad59b500a]N: Integer[/color:2ad59b500a] [/b:2ad59b500a]No evento [b:2ad59b500a]OnColEnter[/b:2ad59b500a] eu colocaria.[code:1:2ad59b500a]procedure TFxxxxxx.DBGrid1ColEnter(Sender: TObject);begin   n:= DBGrid1.SelectedIndex;end;[/code:1:2ad59b500a]No evento [b:2ad59b500a]OnMouseDown[/b:2ad59b500a] eu colocaria.[code:1:2ad59b500a]procedure TFxxxxx.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  if button = mbRight then    ShowMessage(�Coluna: � + DbGrid1.Columns&#91;n&93;.FieldName);end;[/code:1:2ad59b500a]Seria isso, agora fica por conta de seu talendo de desenvolvedor.[color=red:2ad59b500a][u:2ad59b500a][b:2ad59b500a]Boa.[/b:2ad59b500a][/u:2ad59b500a][/color:2ad59b500a]Problema Solucionado !!!  :wink:  :wink: Boa Sorte!![/quote:2ad59b500a]...

Martins · Answer

[quote:c67bf77c3f=�R�mulo Barros�][quote:c67bf77c3f=�Martins�]A minha solu��o seria essa.[b:c67bf77c3f]Criaria uma variavel global  [color=red:c67bf77c3f]N: Integer[/color:c67bf77c3f] [/b:c67bf77c3f]No evento [b:c67bf77c3f]OnColEnter[/b:c67bf77c3f] eu colocaria.[code:1:c67bf77c3f]procedure TFxxxxxx.DBGrid1ColEnter(Sender: TObject);begin   n:= DBGrid1.SelectedIndex;end;[/code:1:c67bf77c3f]No evento [b:c67bf77c3f]OnMouseDown[/b:c67bf77c3f] eu colocaria.[code:1:c67bf77c3f]procedure TFxxxxx.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  if button = mbRight then    ShowMessage(�Coluna: � + DbGrid1.Columns&#91;n&93;.FieldName);end;[/code:1:c67bf77c3f]Seria isso, agora fica por conta de seu talendo de desenvolvedor.[color=red:c67bf77c3f][u:c67bf77c3f][b:c67bf77c3f]Boa.[/b:c67bf77c3f][/u:c67bf77c3f][/color:c67bf77c3f]Problema Solucionado !!!  :wink:  :wink: Boa Sorte!![/quote:c67bf77c3f][/quote:c67bf77c3f]A� [b:c67bf77c3f]R�mulo[/b:c67bf77c3f] valew compadre, um abra�o p/ vc, � sempre bom poder contar com seus posts aqui no f�rum, v� se n�o some.Falow!!!...