![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » Elevate Web Builder Technical Support » Product Manuals » Elevate Web Builder 3 Manual » Language Reference » Asynchronous Calls |
procedure TForm1.Button1Click(Sender: TObject); begin async CreatePanel(0); end;
procedure TForm1.CreatePanels; var I: Integer; begin for I:=1 to 100 do TPanel.Create(Self); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowProgress('Creating panels...'); CreatePanels; HideProgress; end;
procedure TForm1.CreatePanel(I: Integer); begin TPanel.Create(Self); Inc(I); if (I < 100) then async CreatePanel(I) else async HideProgress; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowProgress('Creating panels...'); async CreatePanel(0); end;
This web page was last updated on Friday, January 31, 2025 at 08:42 AM | Privacy Policy![]() © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |