Foco em componente ativo

Question

Ol� programadores.Como posso mandar o foco para o componente ativo.Exemplo:Edit1, Edit2, Edit3.Tenho um por padrao o foco para Edit1, mas em certas situa��es ele esta desativado. como mandar o foco pa...

F�rum Vini · Answer

Ol�,tente assim:[code:1:eb9f1e0871]var  cont: Integer;  comp: TComponent;begin  for cont:= 0 to FormTal.ComponentCount - 1 do  begin    comp:= FormTal.Components&#91;cont&93;;    if ( comp is TEdit ) then      if ( comp.Enabled ) then        comp.setFocus();  end;[/code:1:eb9f1e0871]Fa�o as duas verifica��es porque n�o sei se o �Boolean Short Circuit� est� ativado. Eu tamb�m guardo a refer�ncia do componente( comp ) para que n�o seja necess�rio executar 2 vezes a busca por ele na propriedade Components :wink:Espero ter ajudado,Vinicius;...

Tinorj · Answer

Este procedimento eu fiz s� com TEdit, basta vc implementar o restante dos testes.

Nos eventos OnEnter e OnExit dos componentes vc aponta para esta rotina.

procedure TForm1.TestarFoco(Sender: TObject);

  function iif(Conditional: Boolean; CondTrue,
    CondFalse: Variant): Variant;
  begin
    if Conditional then
      Result := CondTrue
    else
      Result := CondFalse;
  end;

var
  I: integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Sender IS TEdit) then
      TEdit(Sender).Color := iif(Sender = ActiveControl, clMoneyGreen, clWindow);
end;

F�rum Foco em componente ativo #262465