Analitcs

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

sábado, 17 de novembro de 2012

DELPHI - Retornar Maior TabOrder de Controls

Reações: 
Function MaxTaborder(Obj : TWinControl) : Integer;
var
  k : integer;
begin
  Result := 0;
  for K := 0 to Obj.ControlCount -1 do
  begin
    if TWinControl(Obj.Controls[k]).TabOrder > Result then
    Result := TWinControl(Obj.Controls[k]).TabOrder;
  end;
end;

Nenhum comentário:

Postar um comentário

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

Max Gehringer