Delphi Firemonkey TButton免费

Question

I've found something very strange in Delphi 10.1 Firemonkey.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Free;
end;

After this - when I clicked on this button, the form's system icons aren't working! It returns to work only when pressed another button or switched to another window and back again. Why? I'm confused...

Answer 1

The way to solve it is:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RemoveObject(Button1);
end;

In VCL worked with the .Free, but the FMX works in some different way.

Answer 2

This is because of the way (horrible way) arc is made under delphi. Under arc Free do nothing. it's completely stupid but guy at embarcadero seam to like it and after i see people like you who don't understand why their code don't work...

so instead of doing button1.free you need to do button1.disposeOF ... replace all your free by disposeOF and your code will be less buggy under ARC and say thanks to emb