Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sábado, 17 de novembro de 2012

DELPHI - Retornar Objeto via valor de TabOrder

Reações: 

Function GetObjectTabOrder(TabOrder : Integer; Obj : TWinControl) : TWinControl;
var
  k : integer;
begin
  Result := Nil;
  for K := 0 to Obj.ControlCount -1 do
  begin
    if TWinControl(Obj.Controls[k]).TabOrder = TabOrder then
    begin
      Result := TWinControl(Obj.Controls[k]);
      Break;
    end;
  end;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer