Não consigo retornar no TabSheet normalmente com um click?

03/07/2008

1

Pessoal tenho aqui um form com um PageControl e neste PageControl tem dois TabSheet

No primeiro TabSheet tenho um dbgrid e no segundo é em modo forumulario

Então percebi se eu colocar este codigo no oncellclik do dbgrid

 procedure TfrmEmissaoPed.DBGrid3CellClick(Column: TColumn);
    begin
      Edit1.Text := IntToStr(DSPadrao.DataSet.FieldByName(´ID_FORNECEDOR´).AsInteger);
      Edit2.Text := IntToStr(DSPadrao.DataSet.FieldByName(´ID_CLIENTE´).AsInteger);
    end;



E clicar na aba que vai para o segundo tabsheet2 e retornar para a primeira aba aonde esta o tabsheet1 ele não obedece no primeiro click e sim la pelo terceiro clique na aba até retornar, se eu comentar estas linhas ele retorna normal no primeiro click.

O que pode ser isso?


Responder

Posts

03/07/2008

Altingon

Tenta testar se a TabSheet onde tem o grid é a ativa

if PageControl1.Activepage = Tabsheet1 then
  begin
    Edit1.Text := IntToStr(DSPadrao.DataSet.FieldByName(´ID_FORNECEDOR´).AsInteger);
    Edit2.Text := IntToStr(DSPadrao.DataSet.FieldByName(´ID_CLIENTE´).AsInteger); 
  end;


Espero ter ajudado


Responder
Obrigado amigo, vou ver aqui

Valeu.


Responder
Já descobri, debugando achei o problema amigo

Olhe no evento onexit destes dois Edits:

procedure TfrmEmissaoPed.Edit1Exit(Sender: TObject);
begin
  inherited;
  {if Trim(Edit1.Text) = ´´ then
     Exit
  else
    Edit2.SetFocus;
  {:Chama a procedure}
  BuscaFornecedor;
end;

procedure TfrmEmissaoPed.Edit2Exit(Sender: TObject);
begin
  inherited;
  {if Trim(Edit2.Text) = ´´ then
     Exit
  else
    JvDBDateEdit1.SetFocus;
  {:Chama a procedure}
  BuscaCliente;
end;


Ou seja esta forçando se tiver preenchido outro setfocus, ai ele vai até o JvDBDateEdit1.SetFocus; para depois retornar.

E agora? Tenho que ver como contornar isso :D


Responder

03/07/2008

Altingon

O que você pode fazer é impedir que o usuario ative outra TabSheet enquanto os critérios não forem atendidos.


Responder
Arrumado
procedure TfrmEmissaoPed.Edit1Exit(Sender: TObject);
begin
  inherited;
  if Trim(Edit1.Text) = ´´ then
  begin
     Exit;
  end;
  {:Chama a procedure}
  BuscaFornecedor;
end;

procedure TfrmEmissaoPed.Edit2Exit(Sender: TObject);
begin
  inherited;
  if Trim(Edit2.Text) = ´´ then
  begin
     Exit;
  end;
 {:Chama a procedure}
  BuscaCliente;
end;


Joguei o SetFocus no evento onKeyPress


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira