把这DlgConfig那2个文件放客户端源码目录后，在你的MirClient.dpr文件里添加2行语句
DlgConfig in 'DlgConfig.pas' {frmDlgConfig};
和
Application.CreateForm(TfrmDlgConfig, frmDlgConfig);
包里的MirClient.dpr只是演示。
然后在TfrmMain.FormKeyDown函数里
比如F9的快捷键里添加
if not frmDlgConfig.Showing then frmDlgConfig.Open;
在CLMAIN文件里的implementation下面一行uses引用DlgConfig
2021-09-11 09:05:07
3KB