2018年03月_MY128

原创 js中的确定取消对话窗口

<button onclick="test()">点我吧</button> <script src="https://cdn.bootcss.com/jquery/1.12.4/jquery.min.js"></script> <script> function test() {

2018-03-31 21:05:42 360

原创简单的jquery实现收缩列表菜单

<!DOCTYPE html><html lang="en"><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> &

2018-03-31 20:47:05 1540

原创 DBGridEh点击标题后会排序

第一步：ColumDefValues->Title->TitleButton设为TRUE 第二步：sortlocal 设为TRUE第三步：OptionsEH->dghautosortmarking设为TRUE 第四步：最后，一定要记得在pas文件的uses里引用上ehlib***，我这里的是ehlibCDS，网上也有的是ehlibBDE。...

2018-03-26 17:23:46 491

转载让delphi的DBGrid能自适应列宽

///////Begin Source uses Math; function DBGridRecordSize(mColumn: TColumn): Boolean; { 返回记录数据网格列显示最大宽度是否成功 } begin Result := False; if ...

2018-03-26 15:58:14 1917

原创 SQL server 列出数据库中所有表的名字

SELECT Name FROM SysObjects Where XType='U'

2018-03-26 12:04:14 4809

原创窗体最小化时隐藏窗体_delphi基础

///////////////////在窗体的onresize事件中添加/////////////////procedure TF_server.FormResize(Sender: TObject);begin case WindowState of wsMinimized: self.Visible:=false;//隐藏 end;end;...

2018-03-19 13:18:47 892

原创运行外部程序_delphi基础

**********************调用单元ShellAPI************************ShellExecute(handle, 'open','c:Project1.exe','',nil, SW_SHOWNORMAL);

2018-03-15 20:35:18 321

****************要引用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 323

原创取得当前程序所在路径_Delphi基础

filename:=ExtractFilePath(Paramstr(0)); //取得程序所在的路径

2018-03-14 18:39:32 515

MY128的博客