SleepAndCall

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
TRObject Syntax

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

Base Syntax

var
  Form1:TclForm;
  sleepBtn : TclButton;

Procedure getAfterSleep;
begin
  sleepBtn.Text := 'AFTER SleepAndCall';
end;

Procedure getBeforeSleep;
begin
  sleepBtn.Text := 'BEFORE SleepAndCall';
  //Form1.StartProcessMessages(5000);
  Clomosy.SleepAndCall(3000,'','getAfterSleep');
end;

begin
  Form1 := TclForm.Create(Self);
  sleepBtn:= Form1.AddNewButton(Form1,'sleepBtn','Click');
  sleepBtn.TextSettings.Font.Size:=30;
  sleepBtn.Align := alCenter;
  sleepBtn.Height := 70;
  sleepBtn.Width := 200;
  Form1.AddNewEvent(sleepBtn,tbeOnClick,'getBeforeSleep');
  
  Form1.Run;
end;

See Also

• System Functions