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); 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; finally
begin
Edifil:= Copy(Edito.Text, 1, 5);
FModal.Free;
end;
end;
end;