Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-12-2017
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 415
Poder: 14
bulc Va por buen camino
Como usar SetFocus en un TForm personalizado

Tengo un TForm personalizado para entrada de datos y me gustaría que al abrirlo el Foco se colocara en el Editor. No sé cómo hacerlo. Aquí pongo el código:
Código Delphi [-]
procedure TForm1.BitBtn3Click(Sender: TObject);  // TForm de recogida de datos.
Var
  FModal: TForm;   Boton: TButton;   Lbl : TLabel;   Edito : TEDit;
begin
  FModal:= TForm.Create(Application);   FModal.Caption:= 'Recoger Nº EDIFIL';
  FModal.BorderStyle:= bsDialog;          FModal.Position:= poScreenCenter;
  Boton := TButton.Create( FModal);
  With Boton do
  begin
    Caption:= 'Salir y Guardar';
    Left:= 85;         Top:= 140;     
   Width:= 180;     Parent:= FModal;     
   Default:=True;    ModalResult:= mrClose;
  end;
  Lbl := TLabel.Create( FModal);
  with Lbl do
  begin
     Caption := 'Escribe tu Nº Edifil: ';      Left:= 90;      
    Top:= 60 ;      Parent:= FModal;
  end;
  Edito:= TEdit.Create(FModal);
  With Edito do
  begin
    Edito.Text:= '9999';     Edito.Font.Size :=18;     
    Edito.Left := 85;          Edito.Top := 80 ;     
    Parent:= FModal;
  end;
  try
    FModal.ShowModal; //Soy Modal y me tienes que cerrar.
  finally
    begin
     Edifil:= Copy(Edito.Text, 1, 5);
     FModal.Free;
    end;
       //Libera todo su contenido
  end;
end;
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
Tpanle como Tform felipe88 API de Windows 12 01-02-2008 15:25:52
como usar setfocus en un Avdgrid spyfenix OOP 1 14-06-2007 19:23:36
¿Como crear un reporte personalizado? AndGaG Impresión 1 04-06-2006 10:59:08
TForm como parametro Delpho Varios 3 07-02-2006 10:13:08


La franja horaria es GMT +2. Ahora son las 12:05:25.


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