TIWCGJQMenuItem.OnClick.Indicator - in IDE -vs- programming

[ScottWGast]

I am able to set the .Indicator to formMain.IWCGJQLockIndicator1 in the IDE without any problems (and it works fine at runtime) , but if I try to _set_ the .Indicator at runtime, I get an "Invalid class typecast" in the code below:

Code: Select all

var
  i: Integer;
begin
  // set the menu items Lock Indicator
  for i := 0 to Self.menuEmailEdit.MenuItems.Count - 1 do
      Self.menuEmailEdit.MenuItems[i].OnClick.Indicator := (Owner as TformMain).IWCGJQLockIndicator1;                 // <<-- Invalid class typecast
end


Scott

[Jorge Sousa]

Hi

The error is in (Owner as TformMain), your code

[Jorge Sousa]

Hi

The error is in (Owner as TformMain), your code

[Alexander Bulei]

Hi ScottWGast,

Sorry for asking, do you have debug?

It easy to check with CTRL+F7 (Evaluate/Modify window)...

Best Regards.