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?
