From Clomosy Docs

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


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


'''var'''
:'''TRObject Syntax'''
   MainForm : TclForm;
   var
  iconImg : TCLProImage;
    MainForm : TclForm;
   GetTimer: TClTimer;
    iconImg : TCLProImage;
    
'''procedure iconBtnClick;'''
  void iconBtnClick;
'''begin'''
  {
  ShowMessage('Hello!');
    ShowMessage('Hello!');
'''end;'''
  }
 
'''procedure Animation;'''
  void StartForm;
'''begin'''
  {
    ''clDoClick(iconImg);''
    '''clDoClick'''(iconImg);
    GetTimer.Enabled := False;
  }
'''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');
  GetTimer:= MainForm.AddNewTimer(MainForm,'GetTimer',1500);
   
  GetTimer.Enabled := True;
    iconImg = MainForm.AddNewProImage(MainForm,'iconImg');
  MainForm.AddNewEvent(GetTimer,tbeOnTimer,'Animation');
    clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
    "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
  iconImg := MainForm.AddNewProImage(MainForm,'iconImg');
    MainForm.AddNewEvent(iconImg,tbeOnClick,'iconBtnClick');
  clComponent.SetupComponent(iconImg,'{"Align" : "Top","MarginTop":40,"MarginLeft":5,
   
  "Height":150,"ImgUrl":"https://clomosy.com/demos/moon.png", "ImgFit":"yes"}');
    MainForm.Run;
  MainForm.AddNewEvent(iconImg,tbeOnClick,'iconBtnClick');
  }
  MainForm.Run;
'''end;'''
 
= See Also =
= See Also =
* [[Controls| Controls]]
* [[Controls| Controls]]

Revision as of 13:09, 7 February 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:

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;
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;
 }

See Also