![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi基础
MY128
走别人的路,让自己说去吧……
展开
-
取得当前程序所在路径_Delphi基础
filename:=ExtractFilePath(Paramstr(0)); //取得程序所在的路径原创 2018-03-14 18:39:32 · 533 阅读 · 0 评论 -
ini文件的基本操作_delphi基础
****************要引用Inifiles单元*******************myinifile:Tinifile;//声明myinifile:=Tinifile.create(filename+'set.ini');//打开filename路径下的set.ini文件。myinifile.ReadInteger('dach','ch',0);//读操作myinifile.Writ...原创 2018-03-14 19:26:01 · 341 阅读 · 0 评论 -
运行外部程序_delphi基础
**********************调用单元ShellAPI************************ShellExecute(handle, 'open','c:Project1.exe','',nil, SW_SHOWNORMAL);原创 2018-03-15 20:35:18 · 340 阅读 · 0 评论 -
窗体最小化时隐藏窗体_delphi基础
///////////////////在窗体的onresize事件中添加/////////////////procedure TF_server.FormResize(Sender: TObject);begin case WindowState of wsMinimized: self.Visible:=false;//隐藏 end;end;...原创 2018-03-19 13:18:47 · 917 阅读 · 0 评论 -
DBGridEh点击标题后会排序
第一步:ColumDefValues->Title->TitleButton设为TRUE 第二步:sortlocal 设为TRUE第三步:OptionsEH->dghautosortmarking设为TRUE 第四步:最后,一定要记得在pas文件的uses里引用上ehlib***,我这里的是ehlibCDS,网上也有的是ehlibBDE。...原创 2018-03-26 17:23:46 · 509 阅读 · 0 评论 -
delphi取得本地ip的方法
Indy的“indy misc”下有一个“TIdIPWatch”组件,可以正确获得本地IP,即使有多块网卡,也可以正确获得真正本地IP。一,引入单元文件“IdIPWatch”。二,实际代码:procedure TMainForm.localIpBtnClick(Sender: TObject);var IdIPWatch: TIdIPWatch; //TIdIPWatch类实例begin tr...转载 2018-04-28 17:14:18 · 1714 阅读 · 0 评论 -
delphi登录窗口与主窗口的显示先后。
1、登录窗口form1,主窗口form2,在form1的create中加下if form2.showmodal <> mrok then Application.Terminate;2、在form1的确定按钮中加入 F_main.Show; F_dl.Hide;...原创 2018-05-15 11:16:14 · 4201 阅读 · 0 评论 -
Delphi窗体重划,激活窗体,应用于窗体显示置顶。
F_main.WindowState := wsnormal;//窗体正常化 //窗体重划,激活窗体 Application.Restore; SetForegroundWindow(Handle);原创 2018-06-05 10:46:26 · 1593 阅读 · 0 评论