From Clomosy Docs

No edit summary
No edit summary
Line 12: Line 12:


'''Example:'''
'''Example:'''
:'''Base Syntax'''
 
:'''TRObject Syntax'''
   var
   var
     MainForm : TclForm;
     MainForm : TclForm;
     iconImg : TCLProImage;
     iconImg : TCLProImage;
    
    
   procedure iconBtnClick;
   void iconBtnClick;
   begin
   {
     ShowMessage('Hello!');
     ShowMessage('Hello!');
   end;
   }
    
    
   procedure StartForm;
   void StartForm;
   begin
   {
     '''clDoClick'''(iconImg);
     '''clDoClick'''(iconImg);
   end;
   }
    
    
   begin
   {
     MainForm :=TclForm.Create(self);
     MainForm =TclForm.Create(self);
     MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
     MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
     MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
     MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
      
      
     iconImg  := MainForm.AddNewProImage(MainForm,'iconImg');
     iconImg  = MainForm.AddNewProImage(MainForm,'iconImg');
     clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
     clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
     "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
     "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
Line 38: Line 39:
      
      
     MainForm.Run;
     MainForm.Run;
   end;
   }


:'''TRObject Syntax'''
:'''Base Syntax'''
   var
   var
     MainForm : TclForm;
     MainForm : TclForm;
     iconImg : TCLProImage;
     iconImg : TCLProImage;
    
    
   void iconBtnClick;
   procedure iconBtnClick;
   {
   begin
     ShowMessage('Hello!');
     ShowMessage('Hello!');
   }
   end;
    
    
   void StartForm;
   procedure StartForm;
   {
   begin
     '''clDoClick'''(iconImg);
     '''clDoClick'''(iconImg);
   }
   end;
    
    
   {
   begin
     MainForm =TclForm.Create(self);
     MainForm :=TclForm.Create(self);
     MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
     MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
     MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
     MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
      
      
     iconImg  = MainForm.AddNewProImage(MainForm,'iconImg');
     iconImg  := MainForm.AddNewProImage(MainForm,'iconImg');
     clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
     clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
     "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
     "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
Line 66: Line 67:
      
      
     MainForm.Run;
     MainForm.Run;
   }
   end;
 
= See Also =
= See Also =
* [[Controls| Controls]]
* [[Controls| Controls]]

Revision as of 10:52, 23 August 2024

"clDoClick" is a part of the Clomosy library and allows you to programmatically perform a click operation on a component or object.

Its basic usage is as follows:

clDoClick(AComponent);

Parameter:

  • AComponent: The component or object to click on.

When this function is called, a click operation is performed on the specified component or object. This can be used to simulate the user interface of the program or for automation purposes. For example, it can be used to trigger a specific action by clicking on a button.

Example:

TRObject Syntax
 var
   MainForm : TclForm;
   iconImg : TCLProImage;
 
 void iconBtnClick;
 {
   ShowMessage('Hello!');
 }
 
 void StartForm;
 {
   clDoClick(iconImg);
 }
 
 {
   MainForm =TclForm.Create(self);
   MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
   MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
   
   iconImg  = MainForm.AddNewProImage(MainForm,'iconImg');
   clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
   "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
   MainForm.AddNewEvent(iconImg,tbeOnClick,'iconBtnClick');
   
   MainForm.Run;
 }
Base Syntax
 var
   MainForm : TclForm;
   iconImg : TCLProImage;
 
 procedure iconBtnClick;
 begin
   ShowMessage('Hello!');
 end;
 
 procedure StartForm;
 begin
   clDoClick(iconImg);
 end;
 
 begin
   MainForm :=TclForm.Create(self);
   MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');
   MainForm.AddNewEvent(MainForm,tbeOnFormActivate,'StartForm');
   
   iconImg  := MainForm.AddNewProImage(MainForm,'iconImg');
   clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
   "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
   MainForm.AddNewEvent(iconImg,tbeOnClick,'iconBtnClick');
   
   MainForm.Run;
 end;

See Also