Clone: IGxIcon;
The Clone method creates a copy of the icon.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Icon, Icon1: IGxIcon;
Begin
Icon := Self.Icon;
Icon1 := Icon.Clone;
End Sub Button1OnClick;
After executing the example on clicking the button the Icon1 variable contains the copy of the form icon.
See also: