ClTagInt

The ClTagInt property is used to store an integer value for any object. It is typically used to carry additional information or identification details specific to the object.

textBtn.ClTagInt
TclProImage(Myform.Clsender).ClTagInt

Example:

TRObject Syntax:

Var  
 MyForm:TclForm;
 testPanel : TclProPanel;
 testBtn : TClProButton;
 i : Integer;

void BtnOnClick; 
{
 ShowMessage(TClProButton(Myform.Clsender).clTagInt); 
}

{
 MyForm=TclForm.Create(self);
 testPanel=MyForm.AddNewProPanel(MyForm,'testPanel');
 clComponent.SetupComponent(testPanel,'{"Align" : "Center","Width" :200, 
"Height":300,"RoundHeight":10,"RoundWidth":10,"BorderColor":"#3a32a8","BorderWidth":2}');

 for (i = 0 to 4)
 {
 testBtn = MyForm.AddNewProButton(testPanel,'testBtn'+IntToStr(i+1),'');
clComponent.SetupComponent(testBtn,'{"caption":"testBtn'+IntToStr(i+1)+'","Align" : "Top","MarginTop":5,"MarginLeft":5,"MarginRight":5,
 "Height":50}');
MyForm.SetImage(testBtn,'https://clomosy.com/demos/foodInformationBox.png'); 

 testBtn.clTagInt = i+1;
 MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
 }

 MyForm.Run;
}

Base Syntax

Var  
 MyForm:TclForm;
 testPanel : TclProPanel;
 testBtn : TClProButton;
 i : Integer;

procedure BtnOnClick; 
begin
 ShowMessage(TClProButton(Myform.Clsender).clTagInt); 
end;
 
begin
 MyForm:=TclForm.Create(self);
 testPanel:=MyForm.AddNewProPanel(MyForm,'testPanel');
 clComponent.SetupComponent(testPanel,'{"Align" : "Center","Width" :200, 
"Height":300,"RoundHeight":10,"RoundWidth":10,"BorderColor":"#3a32a8","BorderWidth":2}');

 for i := 0 to 4 do
 begin
 testBtn := MyForm.AddNewProButton(testPanel,'testBtn'+IntToStr(i+1),'');
clComponent.SetupComponent(testBtn,'{"caption":"testBtn'+IntToStr(i+1)+'","Align" : "Top","MarginTop":5,"MarginLeft":5,"MarginRight":5,
 "Height":50}');
MyForm.SetImage(testBtn,'https://clomosy.com/demos/foodInformationBox.png'); 

 testBtn.clTagInt := i+1;
 MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
 end;

 MyForm.Run;
end;

See Also

• Controls