juniorSoft
21-05-2016, 16:44:02
Hola amigos,
Me ha surgido una interrogante utilizando el popupmenu en firemonkey; en la VCL los popup menú en sus item tienen una propiedad default que sin tener que desplegar el menú se ejecuta la accción que esta por defecto marcada en el item menu he estado tratando simular este comportamiento en el popup de menu de firemonkey pero no he dado con el objetivo
Hasta ahora lo que he realizado es crear una clase interpuesta para el Tmenuitem pero observando la implementacion de la VCL hay muchas cosas envueltas para lograrlo.
la propiedad default en su write utiliza el metodo SetDetault(value:Boolean); este metodo SetDefault a su vez contiene una llamada al metodo MenuChanged(Rebuild: Boolean); y a su vez este utiliza la variable FOnChange de tipo TMenuChangeEvent; el cual no existe en la implementacion de los itemmenu de firemonkey
TMenuItemEx = class(TMenuItem)
private
FDefault: Boolean;
FOnChange: TMenuChangeEvent;
protected
procedure SetDefault(Value: Boolean);
procedure MenuChanged(Rebuild: Boolean);
public
property Default: Boolean read FDefault write SetDefault default False;
end;
Mi pregunta es: existe alguna otra forma de decirle al itemmenu de firemonkey que este estará por defecto
Inmensamente agradecido de este foro
Me ha surgido una interrogante utilizando el popupmenu en firemonkey; en la VCL los popup menú en sus item tienen una propiedad default que sin tener que desplegar el menú se ejecuta la accción que esta por defecto marcada en el item menu he estado tratando simular este comportamiento en el popup de menu de firemonkey pero no he dado con el objetivo
Hasta ahora lo que he realizado es crear una clase interpuesta para el Tmenuitem pero observando la implementacion de la VCL hay muchas cosas envueltas para lograrlo.
la propiedad default en su write utiliza el metodo SetDetault(value:Boolean); este metodo SetDefault a su vez contiene una llamada al metodo MenuChanged(Rebuild: Boolean); y a su vez este utiliza la variable FOnChange de tipo TMenuChangeEvent; el cual no existe en la implementacion de los itemmenu de firemonkey
TMenuItemEx = class(TMenuItem)
private
FDefault: Boolean;
FOnChange: TMenuChangeEvent;
protected
procedure SetDefault(Value: Boolean);
procedure MenuChanged(Rebuild: Boolean);
public
property Default: Boolean read FDefault write SetDefault default False;
end;
Mi pregunta es: existe alguna otra forma de decirle al itemmenu de firemonkey que este estará por defecto
Inmensamente agradecido de este foro