TClProEdit

function AddNewProEdit(AComponent: TCLComponent; xName, xPromptText: string): TclProEdit;

AComponent : Specifies the parent of the object to be defined.

xName : The name of the defined TclProEdit object must be written.

xPromptText : A hint or message to be displayed when the Text property is empty.

The TclProEdit component is a text box used to allow users to enter or edit text on a form. When placed on the form, the TclProEdit component creates an area where users can input the required information.

Refer to the TclEdit page for standard edit object usage.

Feature	Use of	Definition
TclProEdit	ProEdit1 : TclProEdit;	A variable belonging to the TclProEdit class is created.
AddNewProEdit	ProEdit1 = Form1.AddNewProEdit(Form1,'ProEdit1','Test ProEdit Message');	A new edit component is added to the form.

In addition to the features of a standard edit, TclProEDİT offers new and advanced features, which we will explain in detail below.

clProSettings Properties

TextSettings

FontColor

FontName

FontSize

FontVertAlign

FontHorzAlign

BackgroundColor

BorderColor

IsTransparent

IsFill

RoundHeight

RoundWidth

IsRound

BorderWidth

PictureAutoFit

PictureStretch

PictureSource

To learn the purpose and usage of the clProSettings properties, please refer to the page.

Example

 Var   
   Form1:TclForm;
   Edit1: TClProEdit;
   Img1 : TCProImage;
 
 void SetEditAndImg;
 {
   Edit1 = Form1.AddNewProEdit(Form1,'Edit1','Phone Number');
   Edit1.Align = alCenter;
   Edit1.Width = 180;
   Edit1.Height = 45;
   Edit1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
   Edit1.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
   Edit1.clProSettings.RoundHeight = 15;
   Edit1.clProSettings.RoundWidth = 15;
   Edit1.clProSettings.BorderWidth = 3;
   Edit1.clProSettings.FontSize = 12;
   Edit1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   Edit1.clProSettings.FontHorzAlign = palCenter;
   Edit1.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];
   Edit1.clProSettings.IsFill = True; 
   Edit1.clProSettings.IsRound = True;
   Edit1.SetclProSettings(Edit1.clProSettings);
   
   Img1 = Form1.AddNewProImage(Edit1,'Img1');
   Img1.Align = AlLeft;
   Img1.Width = 25;
   Img1.Margins.Left = 5;
   Img1.Margins.Top = 5;
   Img1.Margins.Bottom = 5;
   Form1.SetImage(Img1,'https://clomosy.com/demos/phone.png');
 }
 
 {
   Form1 = TclForm.Create(Self);
   SetEditAndImg;
   Form1.Run;
 }

Output:

See Also

• Components
• Pro Object Properties
• Object Properties