tslediter/d_examples/toolbar/e_toolbar.tsl

7 lines
252 B
Plaintext

//工程E_Toolbar界面库主程序
uses tslvcl; //引入界面库
app := InitializeApplication(); //获得界面管理器
app.CreateForm(class(E_Toolbarmain),fm); //构造主窗口
fm.show(); //显示主窗口
app.run(); //开始消息循环