Ver Mensaje Individual
  #3  
Antiguo 17-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
y kiero ponerle como condicion ke se ejecuten solo despues de creada la forma.
Hola.

Una opción podría ser:
Código Delphi [-]
...
const
  WM_AFTER_CREATE = WM_USER + 100;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  public
  end;
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Acciones que se ejecutarán en la creación
  PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;

procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
  // Acciones que se ejecutarán después de la creación
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita