Código Delphi [-] procedure TForm1.ApplicationEvents1Restore(Sender: TObject); begin showMessage('Vuelve arriba'); end; procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin showMessage('Minimizando'); end;
procedure TForm1.ApplicationEvents1Restore(Sender: TObject); begin showMessage('Vuelve arriba'); end; procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin showMessage('Minimizando'); end;