From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 17: | Line 17: | ||
'''Example:''' | '''Example:''' | ||
:''' | |||
:'''TRObject Syntax''' | |||
var | var | ||
MainForm : TclForm; | MainForm : TclForm; | ||
iconBtn : TCLProButton; | iconBtn : TCLProButton; | ||
{ | |||
MainForm | MainForm=TclForm.Create(self); | ||
MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png'); | MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png'); | ||
iconBtn | iconBtn = MainForm.AddNewProButton(MainForm,'iconBtn','Hello!'); | ||
clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5, | clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5, | ||
"Height":150}'); | "Height":150}'); | ||
| Line 33: | Line 35: | ||
MainForm.Run; | MainForm.Run; | ||
} | |||
:'''Base Syntax''' | |||
var | var | ||
MainForm : TclForm; | MainForm : TclForm; | ||
iconBtn : TCLProButton; | iconBtn : TCLProButton; | ||
begin | |||
MainForm=TclForm.Create(self); | MainForm:=TclForm.Create(self); | ||
MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png'); | MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png'); | ||
iconBtn = MainForm.AddNewProButton(MainForm,'iconBtn','Hello!'); | iconBtn := MainForm.AddNewProButton(MainForm,'iconBtn','Hello!'); | ||
clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5, | clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5, | ||
"Height":150}'); | "Height":150}'); | ||
| Line 52: | Line 53: | ||
MainForm.Run; | MainForm.Run; | ||
end; | |||
= See Also = | = See Also = | ||
Revision as of 10:59, 23 August 2024
clRTGetProperty is a part of the Clomosy library and is used to retrieve a property of a component. This function returns the value of a specific property of a component at runtime.
The general usage is as follows:
clRTGetProperty(PropertyObject: TComponent; PropName: String)
TComponent : The name of the component to be processed should be written.
PropName : The name of the component feature you want to get is specified.
For instance
clRTGetProperty(Btn, 'Text') clRTGetProperty(Btn, 'Visible') clRTGetProperty(MyForm, 'ComponentCount')
You can access the properties of objects as shown in the examples above.
Example:
- TRObject Syntax
var
MainForm : TclForm;
iconBtn : TCLProButton;
{
MainForm=TclForm.Create(self);
MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png');
iconBtn = MainForm.AddNewProButton(MainForm,'iconBtn','Hello!');
clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
"Height":150}');
ShowMessage(clRTGetProperty(iconBtn,'Text'));
MainForm.Run;
}
- Base Syntax
var
MainForm : TclForm;
iconBtn : TCLProButton;
begin
MainForm:=TclForm.Create(self);
MainForm.SetFormBGImage('https://clomosy.com/demos/bg1.png');
iconBtn := MainForm.AddNewProButton(MainForm,'iconBtn','Hello!');
clComponent.SetupComponent(iconBtn,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
"Height":150}');
ShowMessage(clRTGetProperty(iconBtn,'Text'));
MainForm.Run;
end;