Text: String;
The Text property determines a caption text.
Executing the example requires a form with the Button1 button on the form and the Chart3DBox component with the Chart3DBox1 identifier.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Scene3D: IScene3D;
Caption: IScene3DCaption;
CaptionStyle: IScene3DTextStyle;
Begin
Scene3D := Chart3DBox1.Scene;
Caption := Scene3D.Caption;
Caption.Text := "Scene caption";
CaptionStyle := Caption.Style;
CaptionStyle.Visible := True;
End Sub Button1OnClick;
Executing the example will create a caption for a 3D scene:
See also: