uEditorBase.pas -> Cambiados los parámetros de creación del formulario para que no aparezca como ventana aparte de la aplicación en la barra de tareas hasta que no se implemente ventanas independientes.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@79 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
52667fd222
commit
bd54cccbd5
@ -432,10 +432,16 @@ end;
|
||||
|
||||
procedure TfEditorBase.CreateParams(var params: TCreateParams);
|
||||
begin
|
||||
//No tocar, sirve para crear varios formularios hijos abiertos a la vez fuera de la aplicación principal
|
||||
inherited CreateParams( params );
|
||||
params.Style := params.Style and not WS_POPUP;
|
||||
params.ExStyle := params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW;
|
||||
inherited CreateParams(params);
|
||||
|
||||
{ Descomentar para crear varios formularios hijos abiertos a la vez
|
||||
fuera de la aplicación principal pero cuidado por que las ventanas
|
||||
modales como la previsualización también se ven afectadas.
|
||||
|
||||
inherited CreateParams( params );
|
||||
params.Style := params.Style and not WS_POPUP;
|
||||
params.ExStyle := params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW;
|
||||
}
|
||||
end;
|
||||
|
||||
function TfEditorBase.ShowModal: Integer;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user