tslediter/d_examples/ListView/e_listview.tsl

7 lines
254 B
Plaintext

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