![]() | Products |
| Home » Technical Support » Elevate Web Builder Technical Support » Product Manuals » Elevate Web Builder 3 Manual » Using Visual Controls » Creating and Showing Forms |
project MusicCollection;
contains Main, Album, AddAlbum, Track, SetMediaID;
uses WebForms, WebCtrls;
begin
Application.CreateForm(TMainForm);
Application.Run('MainForm');
end.uses EditFolder; procedure TMainForm.LaunchButtonClick(Sender: TObject); begin EditFolderDlg:=TEditFolderDlg.Create(nil); EditFolderDlg.ShowModal; end;
uses ProgFrm;
procedure TMainForm.LaunchButtonClick(Sender: TObject);
begin
ProgressForm:=TProgressForm.Create(nil);
try
ProgressForm.ShowModal;
finally
ProgressForm.Free;
end;
end;uses ProgFrm; procedure TMainForm.ProgressFormClose(Sender: TObject); begin ProgressForm.Free; end; procedure TMainForm.LaunchButtonClick(Sender: TObject); begin ProgressForm:=TProgressForm.Create(nil); ProgressForm.OnClose:=ProgressFormClose; ProgressForm.ShowModal; end;
This web page was last updated on Tuesday, September 16, 2025 at 04:56 PM | Privacy Policy © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

