From Clomosy Docs
(Created page with "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:'''<br> :''Basic Syntax:'' Var MyForm:TclForm; testPanel : TclProPanel; testBtn : TClProButton; i : Integer; procedure BtnOnClick; begin ShowMessage(TClProButton(Myform.Clsender).clTagInt); end; begin MyF...") |
No edit summary |
||
| Line 68: | Line 68: | ||
MyForm.Run; | MyForm.Run; | ||
} | } | ||
= See Also= | |||
* [[Controls| Controls]] | |||
Revision as of 06:34, 24 January 2024
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:
- Basic 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;
- 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;
}