Firemonkey accelerator key


I’m looking for a way to register the accelerator key other than the standard way, that is when the text with the accelerator key is set to the tLabel.

I googled a lot and did not find nothing of the sort.

Also, in other question, was suggested to set the Label’s Text property at Form’s creation, after setting the Label’s parent, but this does not work because the Label’s Text and Parent properties, might be set dynamically at run time.

Assuming the form has a TEdit, a TLabel and a TRectangle, named respectively MyEdit, MyLabel and MyRect, follows a brief code example

tMyForm = class (TForm)

procedure FormCreate (Sender: tObject);


tMyForm.FormCreate (Sender: tObject);

MyLabel.FocusControl := MyEdit;
MyLabel.Text := ‘&Label’;
MyLabel.Parent := MyRect; // after this setting
// the accelerator key stop working
// I need some code here that makes the accelerator key work, no matter where
// I set the TLabel’s Text and Parent properties


Comments are closed.