Text: String;
The Text property specifies a text for a caption.
Executing this example requires an existing form with the Button1 button located on it and the existing 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 this example will create a caption for a 3D scene:
See also: