From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 8: | Line 8: | ||
<b>Example</b><br> | <b>Example</b><br> | ||
<pre> | <pre> | ||
var | var | ||
| Line 37: | Line 37: | ||
MyForm.Run; | MyForm.Run; | ||
} | } | ||
</pre> | </pre> | ||
<h2> See Also </h2> | <h2> See Also </h2> | ||
* [[Clomosy_Class#System_Function | System Functions]] | * [[Clomosy_Class#System_Function | System Functions]] | ||
Revision as of 12:54, 13 November 2024
procedure Clomosy.SleepAndCall(millisecond:Integer,BeforeSleep,AfterSleep:String);
The sleepAndCall function represents a function that waits for a specific duration and then executes a specified callback function. This type of function can be used to wait for the completion of a specific task and then proceed to execute another function.
The first parameter specifies the duration to wait (in milliseconds). The second parameter represents the action to be triggered before the waiting process. The third parameter executes the specified callback function after the waiting process is completed.
Example
var
MyForm:TclForm;
sleepBtn : TclButton;
void getAfterSleep;
{
sleepBtn.Text = 'AFTER SleepAndCall';
}
void getBeforeSleep;
{
sleepBtn.Text = 'BEFORE SleepAndCall';
//MyForm.StartProcessMessages(5000);
Clomosy.SleepAndCall(3000,'','getAfterSleep');
}
{
MyForm = TclForm.Create(Self);
sleepBtn= MyForm.AddNewButton(MyForm,'sleepBtn','Click');
sleepBtn.TextSettings.Font.Size=30;
sleepBtn.Align = alCenter;
sleepBtn.Height = 70;
sleepBtn.Width = 200;
MyForm.AddNewEvent(sleepBtn,tbeOnClick,'getBeforeSleep');
MyForm.Run;
}