From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | <div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | ||
TCLComponent.ClTagInt :Integer; | |||
</div> | </div> | ||
Revision as of 12:50, 6 November 2024
TCLComponent.ClTagInt :Integer;
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.
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;