Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 23-11-2006
Avatar de xander
xander xander is offline
Miembro
 
Registrado: jul 2006
Posts: 499
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como saber cual es la unidad de cd? crievep API de Windows 2 08-04-2006 00:22:29
Como puedo saber cual es ultimo dia del mes Shidalis Varios 3 24-10-2005 20:15:03
Resolucion del monitor, Puedo saber cual es? Jorge Taveras API de Windows 3 16-04-2005 22:40:37
Saber exactamente cual es cual en un DBLookUpComboBox bustio OOP 3 03-02-2005 23:16:58
Como saber cual es el múmero mayor de un array JDNA Varios 26 25-04-2004 22:04:47


La franja horaria es GMT +2. Ahora son las 07:06:12.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi