From Clomosy Docs

No edit summary
No edit summary
Line 17: Line 17:


'''Example:'''
'''Example:'''
:'''Base Syntax'''
 
:'''TRObject 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 33: Line 35:
      
      
     MainForm.Run;
     MainForm.Run;
   end;
   }
 
:'''TRObject Syntax'''


:'''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;

See Also