How To show a Busy Cursor in Firemonkey while opening a new Form from Main Form? [duplicate]

  

This question already has an answer here:

Screen.Cursor in Firemonkey

2 answers

I want to Show A busy Cursor in Main Form while opening a new child form in firemonkey. So i did this ..

procedure TFrmTouchMain.imgUserClick(Sender: TObject);
begin

Application.MainForm.Cursor := crHourGlass;

MGCTouchSwitchExtractForm := TForm2.Create(Self);

MGCTouchSwitchExtractForm.Show;

Application.MainForm.Cursor := crDefault;

MGCTouchSwitchExtractForm.OnClose := SwitchExtractClose;

end;

But it is not working. what can i do to show a cursor?

Comments are closed.