Mudar foco de objeto

Question

Alguem sabe qual o comando devo utilizar para mudar automaticamente o foco de um objeto para o pr�ximo sem precisar pressionar nenhuma tecla especifica....

Marcello · Answer

Vc pode usar nomedocomponente.setfocus....

Flacandido · Answer

Caro Marcello, usar o Setfocus eu sei usar, mas queria criar uma fun��o que ao ser acionada mudasse o foco para o pr�ximo objeto o qual a principio nao teria como saber o nome do objeto seguinte.

Marco Salles · Answer

Amigo flacandido , tente o codigo abaixo:

implementation

//declare esta variavel nesta sec��o
var
 i:Integer=0;

{$R *.DFM}

//crie uma procedure

procedure MudarFoco;
begin
  i:=1+i;
  if i > form1.ControlCount-1 Then
    i:=0;
  Form1.ActiveControl:=Nil;
  TWinControl(Form1.Controls[I]).SETFOCUS;
end;

//Executa a MudarFoco

procedure TForm1.Button1Click(Sender: TObject);
begin
 MudarFoco;
end;

[b:0918a5cbf5]//em cada componente que e que � controle escreva no seu evento OnEnter o seguinte C�digo
//Note que n�o precias escrever um numero n de procedures para cada
//edit
//Basta escrever uma Procedure e Liga-los a todos os Edits do form[/b:0918a5cbf5]

procedure TForm1.EditGeralEnter(Sender: TObject);
begin
i:=TEdit(sender).TabOrder
end;

[b:0918a5cbf5]//Outro Exemplo de componente que � controle[/b:0918a5cbf5]

procedure TForm1.ButtonGeralEnter(Sender: TObject);
begin
i:=TButton(sender).TabOrder
end;

[b:0918a5cbf5]//e assim sucessivamente, para cada componente que for controle[/b:0918a5cbf5]

procedure TForm1.ComponenteGeralEnter(Sender: TObject);
begin
 i:=TClasseDoComponente(sender)>TabOrder
end;

[color=darkred:0918a5cbf5][b:0918a5cbf5]//A Unica exce��o s�o para os componentes que n�o s�o controle .. Por exemplo os Labels
//Importante.... No bot�o que fizer a chamada , n�o coloque nada no seu evento OnEnter[/b:0918a5cbf5][/color:0918a5cbf5]

Alguma duvida :?: :?: :?:

F�rum Mudar foco de objeto #283825