Hola Tengo una aplicación que tiene muchas forms.
Con el siguiente codigo uno puede minimizar en el task bar en lugar de donde lo hace generalmente las aplicaciones de Delphi.
Como hago para que la aplicación utilice este código sin ponerlo en cada una de las formas?
Código Delphi
[-]
Procedure WMSYSCOMMAND(Var Msg: TMessage); Message WM_SYSCOMMAND;
Procedure WMSYSCOMMAND(Var Msg: TMessage);
Begin
If Msg.wParam = SC_MINIMIZE Then
Begin
Application.Minimize;
End
Else
Inherited;
End;
he probado también este pero tampoco he logrado que funcione para toda la aplicación.
Código Delphi
[-]
Type ...
function AppHook(var Msg: TMessage): Boolean;
function TForm.AppHook(var Msg: TMessage): Boolean;
begin
Result := false;
if Msg.Msg = WM_ENABLE then
if not TWMEnable(Msg).Enabled then
begin
EnableWindow(Application.Handle, True);
Result := true;
end;
end;
//En Create
Application.HookMainWindow(AppHook);
//En Destroy
Application.UnhookMainWindow(AppHook);
Que podré estar haciendo mal?
Muchas gracias por sus sugerencias.
Alexander