Ao migrar para Dephi 2010 codigo n�o funciona

Question

Pessoal,     Ao migrar para Dephi 2010 o codigo n�o funciona, quando clico na coluna o campo n�o recebe o foco e nem deleta o que os caracteres que est�o no mesmo.procedure TFrmCadAluno.dbgAlunoT...

Claudia Nogueira · Answer

Copiei esse seu c�digo pra testar e aqui funcionou normal. Usei o Delphi 2010 com o Firebird.D� algum erro, ou simplesmente n�o atualiza o DBGrid?...

Osmar · Answer

no Delphi 7 quando clicava no menu do dbgrid o campo do Edit_Consulta que � um LabeledEdit recebia o foco e apagava o que foi digitado, para come�car uma nova consulta....

Osmar · Answer

Cl�udia,

Uso esse recurso em v�rios forms, e ap�s a migra��o para Delphi 2010 s� funciona em todos eles a pesquisa, m�s ao clicar no menu do dbgrid n�o foca e nem apaga o que est� no LabeledEdit, o Uses est� assim:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, jpeg,
Mask, ExtDlgs, rxToolEdit, RXDBCtrl, DB, ADODB, DBCtrls,
RxDBComb, umDBImage, IBCustomDataSet, IBQuery, IBUpdateSQL, Menus;

Claudia Nogueira · Answer

A �nica explica��o pra isso � dar alguma exce��o, ou algum erro, ou tem um exit antes de apagar e dar o SetFocus. Quando voc� debuga, passa pelo .clear e .setfocus?...

Osmar · Answer

Cl�udia,

Ao debugar passa sim pelo setfocus e clear, veja tamb�m como esta o FormShow e o FormCreate:

procedure TFrmCadFuncionario.FormShow(Sender: TObject);
begin
IBQryFuncionario.Close;
IBQryFuncionario.Open;
dbgFuncionarioTitleClick(dbgFuncionario.Columns[0]);
end;

procedure TFrmCadFuncionario.FormCreate(Sender: TObject);
begin
PcFuncionario.ActivePageIndex := 0;
PcFuncionario.OwnerDraw:=true;
IBQryFuncionario.Close;
IBQryFuncionario.Open;
end;

Claudia Nogueira · Answer

Posta os eventos que tem no DBGrid....

Osmar · Answer

procedure TFrmCadFuncionario.dbgFuncionarioDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with dbgFuncionario do
begin
if gdSelected in State then
begin
Canvas.Brush.Color := clYellow;
Canvas.Font.Color := clBlack;
end
else Canvas.Brush.Color := clWindow;

Canvas.FillRect( Rect );
DefaultDrawColumnCell( Rect, DataCol, Column, State );

procedure TFrmCadFuncionario.dbgFuncionarioTitleClick(Column: TColumn);
var
campo:string;
begin
campo:=column.fieldname;
application.processmessages;
IBQryFuncionario.sql.Clear;
IBQryFuncionario.sql.add('select * from Funcionario where ESCOLA = '''+sEscola+''' order by '+campo);

if not IBQryFuncionario.Prepared then
IBQryFuncionario.Prepare;
IBQryFuncionario.Open;

if ( Edit_Consulta.CanFocus ) then
Edit_Consulta.SetFocus;

Edit_Consulta.Clear;
End;

end;
end;

Osmar · Answer

Claudia,
Ainda n�o resolvi este problema, olha quando clico no t�tulo do dbgrid nada acontece, ou seja, o sistema n�o ordena, n�o citei na ultima vez o codigo do FormShow:

procedure TFrmCadAluno.FormShow(Sender: TObject);
begin
IBQryAluno.Close;
IBQryAluno.Open;
dbgAlunoTitleClick(dbgAluno.Columns[0]);
end;

Alessandro Folk · Answer

poderia dar um print nas propriedades do grid? esta usando grid de algum componente de terceiros?um print da tela tamb�m seria interessante para entender melhor oque ocorre!...

Perivaldo Martins · Answer

Na propriedade Options do DBGrid o dgTitleClick est� True? Verifique, se n�o estiver passe para True.Boa sorte e bons c�digos!...

Osmar · Answer

Martins,       Realmete era este o problema foi s� colora true e tudo voltou ao normal.  Agrade�o a aten��o de todos.Osmar. ...

Perivaldo Martins · Answer

Tranquilo, que bom que mais um problema foi solucionado.Boa sorte e bons c�digos!...

F�rum Ao migrar para Dephi 2010 codigo n�o funciona #431091