Ver Mensaje Individual
  #3  
Antiguo 18-01-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
Por ejemplo tengo en el formcreate esto:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage('hola');
end;
Ahora quiero que se repita cuando lo llame, pero no puedo estar abriendo y cerrando el form, entonces creo un procedimiento asi:
Código Delphi [-]
procedure TForm1.MiProceso;
begin
  showmessage('hola');
end;
Este procedure lo coloco donde los demas en el TYPE.
Código Delphi [-]
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure MiProceso;
  private
Bien este proceso lo llama desde donde quiera, por ejemplo desde el mismo formcreate, asi:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  MiProceso;
end;
Espero lo entiendas.
Saludos
Responder Con Cita