Hi Guys!
Under Linux GTK2, clicking a MenuItem with RadioButton calls OnClick twice.Calling MenuItem.Click by code at runtime doesn't seem to change the selected menuitem in the menu?
Under Windows I dont see the RadioButton in the menu, and OnClick is called only once.
See demo.
procedure TForm1.btnAddMenuItemClick(Sender: TObject);
var
s:string;
aTargetMenu, aMenuItem: TMenuItem;
begin
aTargetMenu:= MainMenu.Items.Find('&Menu');
s:='MenuItem ' +IntToStr(aTargetMenu.Count +1);
s:=InputBox('Menu name','Enter Menu Name:', s);
aMenuItem:=TMenuItem.Create(MainMenu);
aMenuItem.OnClick:=@MenuClickHandler;
aMenuItem.RadioItem:=True;
aMenuItem.Caption:=s;
aTargetMenu.Add(aMenuItem);
aMenuItem.Click; //Doesnt change selected menuitem with RadioButton!
end;
procedure TForm1.MenuClickHandler(Sender: TObject);
begin
ShowMessage('Clicked!');
end;
<<attachment: AddMenuItem.zip>>
-- _______________________________________________ Lazarus mailing list [email protected] https://lists.lazarus-ide.org/listinfo/lazarus
