Ver Mensaje Individual
  #3  
Antiguo 23-11-2006
Avatar de xander
xander xander is offline
Miembro
 
Registrado: jul 2006
Posts: 499
Reputación: 20
xander Va por buen camino
Esta función que hice de primera y pata igual y te sirva:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);

  function ElEditMasGrande(Edits: array of TEdit): TEdit;
  var
    M: TEdit;
    I: Integer;
  begin
    if Length(Edits) > 0 then
    begin
      M := Edits[Low(Edits)];
      for I := Low(Edits) to High(Edits) do
      begin
        if StrtoIntDef(Edits[i].Text, 0) > StrtoIntDef(M.Text, 0) then
          M := Edits[i];
      end;
      Result := M;
    end
    else
      Result := nil;
  end;

begin
  with ElEditMasGrande([Edit1, Edit2, Edit3, Edit4]) do
  begin
    SetFocus;
  end;
end;

Este ejemplo pone el foco en el edit con el número mas grande.
__________________
"Hey, nena, debe ser genial ser tú y verme a mí mismo..."
Responder Con Cita