Fórum Db, como deixar o foco em determinada coluna #300155
20/10/2005
0
Gostaria de saber como dar um setfocus em determinada coluna, ai eu dou uma message e em seguida foco e ele digita, tudo pratico
thanks
Marcos Fernando
Curtir tópico
+ 0Posts
21/10/2005
Marlon Spiess
function TFom.ckeckFields (dCad : TDataSet) : boolean;
var
X : integer;
begin
Result := false;
for X:= 0 to self.ComponentCount - 1 do
if (Self.Components[X].ClassType = TDBEdit) then
begin
if (TDBEdit(Self.Components[X]).DataSource <> nil)
and (TDBEdit(Self.Components[X]).DataSource.DataSet = dCad)
and (dCad.FieldByName(TDBEdit(Self.Components[X]).DataField).Required = true) then // para campo obrigatório, pode ser trocado por outra validação
if (dCad.FieldByName(TDBEdit(Self.Components[X]).DataField).IsNull then
begin
MessageDlg(TDBEdit(Self.Components[X]).Hint + ´ deve possuir um valor. ´,mtError,[mbOk],0);
TDBEdit(Self.Components[X]).SetFocus;
exit;
end
// demais validações........
Gostei + 0
24/10/2005
Marcos Fernando
DbGrid.SelectedIndex:=TdagColumn(dbgrid.ColumnByFieldName(´campo´)).Index;
Thanks
Gostei + 0
24/10/2005
Marlon Spiess
Vc não queria descobrir e dar um focus num dbedit qdo o campo não tivesse satisfeito alguma clausula ??
O q um grid tem haver com isso.
Ficaria contente em intender.
Muito Obrigado
Gostei + 0
24/10/2005
Marcos Fernando
Gostei + 0
26/02/2006
Jrfigueiredo
Gostaria de saber como você fez quando tem um campo de preenchimento obrigatório no Dbgrid e o cliente não preenche.
Tem como passar para mim ?
Grato
Gostei + 0
26/02/2006
Marcos Fernando
Vc pode fazer essa verificação te enumeras formas, pode usar no before post da tabela
if tabelacampo.isnull=true then begin
showmessage(´Campo obrigatório´):
DbGrid.SelectedIndex:=TdagColumn(dbgrid.ColumnByFieldName(´campo´)).Index; //ai ele vai focar no grid o campo
exit;
end;
thanks
Gostei + 0
26/02/2006
Marco Salles
como o amigo Marcos Fernando disse , pode-se fazer de n formas .. MAs acho que tecnicamente a maneira mais correta é usar o evento Onvalidade do Campo e gerar uma exceção caso o valor seje nulo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)