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);

Application.MainForm.Cursor := crHourGlass;

MGCTouchSwitchExtractForm := TForm2.Create(Self);


Application.MainForm.Cursor := crDefault;

MGCTouchSwitchExtractForm.OnClose := SwitchExtractClose;


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

Comments are closed.