pero, es posible hacerlo modificando el procedimiento Tcustomform.close??
bueno si se podria, el problema que tengo es ke, cuando intento modificar se procedimiento de la clase Tform, simplemente no funciona, es decir, no me toma ese codigo......Se puede modificar ese procedimiento??
EDIT:
Ya solucione mi problema, encontre la directiva ke estaba buscando
el codigo me quedo como sigue:
Código Delphi
[-]
public
procedure Close; reIntroduce;
Código Delphi
[-]
procedure TMDIForm.Close;
var
CloseAction: TCloseAction;
begin
release;
if fsModal in FFormState then
ModalResult := mrCancel
else
if CloseQuery then
begin
if FormStyle = fsMDIChild then
if biMinimize in BorderIcons then
CloseAction := caMinimize else
CloseAction := caNone
else
CloseAction := caHide;
DoClose(CloseAction);
release;
exit;
if CloseAction <> caNone then
if Application.MainForm = Self then Application.Terminate
else if CloseAction = caHide then Hide
else if CloseAction = caMinimize then WindowState := wsMinimized
else Release;
end;
end;