2017年11月17日
delphi 加载inc文件
摘要： procedure TForm1.FormCreate(Sender: TObject); const {$I str.inc} begin ShowMessage(MSG); end; str.inc 放在源码同目录 MSG = 'abc'; 阅读全文
posted @ 2017-11-17 21:57 夏天的西瓜君 阅读(415) 评论(0) 推荐(0)
delphi TcxPageControl 动态嵌入窗体
摘要： type TMyForm_test = class(TForm) cxpgcntrl1: TcxPageControl; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } publ... 阅读全文
posted @ 2017-11-17 17:17 夏天的西瓜君 阅读(1022) 评论(0) 推荐(0)