Buscar por:

Para acessar os eventos minimizar, maximizar e restaurar do form

Código

Para acessar os Eventos Minimizar, Maximizar e Restaurar do Form:

Declare este manipulador na área private do Form: 

private

{ Private declarations }

procedure WMSysCommand(var Msg: TWMSysCommand);

message WM_SYSCOMMAND;

E abaixo de implementation :

procedure TfrmPrincipal.WMSysCommand(var Msg: TWMSysCommand);

begin

inherited;

case Msg.CmdType of

SC_MINIMIZE: Esconde(True); //Aqui você declara o que será feito se o botão minimizar foi clicado e assim por diante

SC_MAXIMIZE: Esconde(False);

// SC_MAXIMIZE, 61490: Esconde(False); //Para evitar a maximização com um clique duplo, usamos o parâmetro 61490

SC_RESTORE : Esconde(False);

end;

end;