Buenas Tardes Foristas
Estoy creando formas a las cuales le asigno como parent un Tabsheet.
Pero los botones de Cerrar , maximizar quedan inhabilitados, eso es lo normal o que procimiento debo ejecutar para que l forma se puedan cerrar usando los boton X(cerrar) de la forma
Gracias por sus comentarios
Adjunto Codigo
Código Delphi
[-]
procedure CREAR_FORMA_X_NOMBRE(P_FormName, P_TabSheetName:String);
var
fc: TFormClass;
f : TForm;
W_ModalResult :Integer;
W_S :string;
begin
fc := TFormClass(FindClass(P_FormName));
f := fc.Create(Application);
W_FormName := P_TabSheetName; F.Name := P_TabSheetName;
F.Caption := P_FormName;
F.Hint := P_FormName;
f.FormStyle := fsNormal;
f.action := FormClose;
f.BorderStyle := bsSizeable ; F.WindowState := wsMaximized;
F.Parent := TabSheet;
f.Show;
END;