| Pregunta: | 15243 - CREAR CUADROS DE TEXTO EN TIEMPO DE EJECUCIóN |
| Autor: | david |
| Necesito saber como puedo crear cuadros de texto en tiempo de ejecución dentro de un formulario MDI Child que fue creado también en tiempo de ejecución. si alguién me puede ayudar. se lo agradecería muchísimo
chau! | |
| Respuesta: | Luis Felipe García Gutiérrez |
| Yo encontré en red un truco muy útil para capturar un dato del usuario, sin necesidad de crear todo un formulario.
En el evento que pide el dato (puede ser un botón), declaro dos variables... var Fac:string; Ok:Boolean; luego en el evento... Fac:=''; Ok:=InputQuery('Aplicación ::: Reimprimir','Factura número: ', Fac); if (Ok and (Fac<>'')) then y listo... mucha suerte!!! | |
| Respuesta: | Jorge Luis Guzman Abreu |
| Por ejemplo, creemos un botón desde el evento OnCreate de tu form:
procedure TForm1.FormCreate(Sender: TObject); var i: Integer; Boton: TButton; begin Boton := TButton.Create(Self); Boton.Parent := Self; Boton.Left := 100; Boton.Top := 100; Boton.Caption:='Pulsame'; Boton.Name := 'Boton'; end; y ahora, querrás hacer algo con el botón cuando lo pulsen ¿no?, pues creamos el procedimiento que trate su evento OnClick: procedure TForm1.ClickBoton(Sender: TObject); begin Boton.Caption := 'Pulsado'; {Pressed} end; y se lo asignamos al boton mediante: Boton.OnClick:=ClickBoton; NOTA: Este procedimiento te sirve para tratar el evento de cualquier componente que crees en ejecución. | |