Ver Mensaje Individual
  #2  
Antiguo 19-05-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Código Delphi [-]
type
  TFrameClass = class of TFrame;

function CreateFrame(FrameClass: TFrameClass; Parent: TWinControl);
begin
  Result := FrameClass.Create(nil);
  Result.Propiedad := Valor;
  Result.Parent := Parent;
end;

Nota que además de la definición de TFrameClass, en lugar de un procedimiento uso una función que regresa el frame creado para así tener una referencia al frame que pueda usar para destruirlo una vez que no lo necesite.

// Saludos
Responder Con Cita