Teste de campo e voltar o foco para o componente

é mais fácil na chamada

function testcampo( campo:string ) :string;
begin
result := (campo= ´´ );
end;


na chamada

if testcampo(edit1.text) then
if edit1.canfocus then
edit1.setfocus;

outra maneira seria a function receber um TWinControl, ou TControl , mas acho complicado demais para o que se quer fazer

Na minha opinião seria mais fácil usar o onValidade do campo e usar o seguinte comando: table1CODIGO.FocusControl;

Na minha opinião seria mais fácil usar o onValidade do campo e usar o seguinte comando: table1CODIGO.FocusControl;
lembrando que o controle deve ser um DBedit ou semelhante.

[]´s
Fabio

Como vc disse mota...
function testcampo( campo:twincontrol;s_formulario:TCustomForm) :string;
begin
if campo is tcustomedit then
begin
if s_formulario.campo.text = ´´ then
begin
campobrig;
s_formulario.campo.SetFocus;
abort;
end;
end;
end;
Porem dá erro
[Error] Funcoes_u.pas(445): Undeclared identifier: ´campo´

function testcampo( campo:twincontrol;s_formulario:TCustomForm) :string;
begin
if campo is tcustomedit then
begin
if s_formulario.campo.text = ´´ then
begin
campobrig;
//s_formulario.campo.SetFocus;
if campo.canfocus then
campo.SetFocus;
abort;
end;
end;
end;