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; | |||
:'''TRObject Syntax''' | |||
MainForm : TclForm; | 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 = | = 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;
}