From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 12: | Line 12: | ||
'''Example:''' | '''Example:''' | ||
:''' | |||
:'''TRObject Syntax''' | |||
var | var | ||
MainForm : TclForm; | MainForm : TclForm; | ||
iconImg : TCLProImage; | iconImg : TCLProImage; | ||
void iconBtnClick; | |||
{ | |||
ShowMessage('Hello!'); | ShowMessage('Hello!'); | ||
} | |||
void StartForm; | |||
{ | |||
'''clDoClick'''(iconImg); | '''clDoClick'''(iconImg); | ||
} | |||
{ | |||
MainForm | 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 | 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; | ||
} | |||
:''' | :'''Base Syntax''' | ||
var | var | ||
MainForm : TclForm; | MainForm : TclForm; | ||
iconImg : TCLProImage; | iconImg : TCLProImage; | ||
procedure iconBtnClick; | |||
begin | |||
ShowMessage('Hello!'); | ShowMessage('Hello!'); | ||
end; | |||
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;