firemonkey Eventos minimize firemonkey

[junior103 0]

Como obter o evento minimizar form no delphi firemonkey? Quero saber quando o evento foi acionado para que possa executar uma função. No delphi eu uso procedure WMSysCommand(var Msg: TWMSysCommand); Message WM_SYSCOMMAND; mas no firemonkey não funiciona. Fico no aguardo. Obrigado

[Jhonas 0]

tente isso

procedure TForm1.Button1Click(Sender: TObject); 
var i : integer; 
begin 
  Form1.WindowState := TWindowState.wsMinimized; 
end;

 

ou veja esse link

http://firemonkeylessons.blogspot.com.br/2014/06/FormMinimize.html

abraço

 

[junior103 0]

Não é bem isso que quero. Eu preciso que quando minimizar o form execute uma função...

Por exemplo 

Eu clico no minimizar do form e logo em seguida retorna um showmessage('Minimizou');

[Jhonas 0]

seria isso ?
 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.WindowState := wsMinimized;

  if Form1.WindowState = wsMinimized then
     showmessage('Minimizou');
end;

se não for tente esse

http://www.activedelphi.com.br/forum/viewtopic.php?t=43079

abraço