roman
21-08-2006, 20:27:51
Si alguna vez has querido minimizar tu aplicación con el botón de la barra de tareas, te habrás percatado que no es posible hacerlo cuando hay ventanas modales abiertas. Lo que debe ser una acción rápida se convierte muchas veces en una penuria de cerrar una ventana tras otra hasta que quede sólo la ventana principal.
Con este truco, originalmente publicado por Peter Below, podrás usar el botón de la barra sin importar cuántas ventanas modales tengas.
Sólo tienes que definir el método AppHook que se muestra a continuación, en el formulario principal y "engancharlo" a la aplicación en el evento OnCreate del formulario.
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
function AppHook(var Message: TMessage): Boolean;
end;
implementation
function TForm1.AppHook(var Message: TMessage): Boolean;
begin
Result := false;
if Message.Msg = WM_ENABLE then
if not TWMEnable(Message).Enabled then
begin
EnableWindow(Application.Handle, true);
Result := true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HookMainWindow(AppHook);
end;
Con este truco, originalmente publicado por Peter Below, podrás usar el botón de la barra sin importar cuántas ventanas modales tengas.
Sólo tienes que definir el método AppHook que se muestra a continuación, en el formulario principal y "engancharlo" a la aplicación en el evento OnCreate del formulario.
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
function AppHook(var Message: TMessage): Boolean;
end;
implementation
function TForm1.AppHook(var Message: TMessage): Boolean;
begin
Result := false;
if Message.Msg = WM_ENABLE then
if not TWMEnable(Message).Enabled then
begin
EnableWindow(Application.Handle, true);
Result := true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HookMainWindow(AppHook);
end;