Delphi 技巧集合

小灰灰 2021-11-05 09:36 312阅读 0赞

## 一、系统 ##

1、打开其它程序、文件：

uses ShellAPI;
    
        ShellExecute(Application.Handle, nil, PChar(FilePath), nil, nil, SW_SHOWNORMAL);

2、浏览某文件或文件夹目录：

uses ShellAPI;
    
        ShellExecute(Application.Handle, nil, PChar('explorer.exe'),PChar('/e, '+ '/select,' + FilePath), nil, SW_NORMAL);

## 二、其它 ##

1、限制只能输入数字

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
        if not (key in ['0'..'9',#8,#13]) then
            key:=#0;
    end;

2、N分钟前的时间

var
        pDate:TDate;
        NowTime:String;
    begin
        pDate:=now();
        pDate:=pDate-10/24/60;   //10分钟前时间
        NowTime:=FormatDateTime('yyyy-mm-dd hh:mm:ss',pDate);
    end;

3、StringGrid右击选中表格

procedure TFGLGL.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    var
        MousePos:   TSmallPoint;
    begin
        if   Button   =   mbRight   then
        begin
            MousePos.x   :=   x;
            MousePos.y   :=   y;
            SendMessage(StringGrid1.Handle, WM_LBUTTONDOWN, 0, MAKELONG(x, y));
            SendMessage(StringGrid1.Handle, WM_LBUTTONUP, 0, MAKELONG(x, y));
        end;
    end;

转载于:https://www.cnblogs.com/lovemoon714/archive/2012/06/25/2561187.html

发表评论取消回复

表情：

评论列表（有 0 条评论，312人围观）

还没有评论，来说两句吧...

相关阅读

相关 Java集合操作优化技巧分享

在Java中，处理集合（如List、Set和Map）是常见的编程任务。以下是一些关于如何优化集合操作的技巧： 1. **避免不必要的迭代**：当你遍历一个集合来获取所有元素时

喜欢ヅ旅行/ 2024年09月22日 00:18/ 0 赞/ 43 阅读

相关 selenium UI使用小技巧集合

01 窗口截图 webdriver 提供了 get\_screenshot\_as\_file()函数来截取当前窗口 ![a94105e98b0c5e6aff4f37b

今天药忘吃喽~/ 2023年09月24日 20:20/ 0 赞/ 37 阅读

相关前端 CSS 用法技巧集合

转自：[http://www.pinlue.com/article/2020/09/1718/1711241398313.html][http_www.pinlue.com_a

迈不过友情╰/ 2022年12月12日 15:22/ 0 赞/ 168 阅读

相关 LoadRunner技巧之集合点设置

Loadrunner 技巧已经整理4篇了，你个一定疑问，这些知识点，网上随处可见。确实，由于长时间没有使用这个工具，造成我的一些概念开始在大脑中模糊，我只是用这种方式来温习。

怼烎@/ 2022年12月08日 04:18/ 0 赞/ 242 阅读

相关 Javascript技巧大集合

1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后，产生该文件 Onchange:当文字值改变时，产生该事件 Ons

心已赠人/ 2022年08月11日 04:30/ 0 赞/ 182 阅读

相关 delphi中的调试技巧

1. 调试的时候，Run/Run Parameters/local/Host Application 选择HDpos.exe 打开包列表，找到HDMain.

以你之姓@/ 2022年07月16日 01:58/ 0 赞/ 162 阅读

相关 Google搜索技巧集合

> 最为一个我们生活、工作中都离不开的一种搜索工具，其实它远比我们想象中的要强得多。所以就有了这一篇对搜索技巧的收集，也许暂时不会用上，需要的时候能想起来就是一件再好不过的事情

ゝ一世哀愁。/ 2022年04月01日 17:10/ 0 赞/ 285 阅读

相关 Notepad++操作技巧集合

1.删除指定字符后面的所有字符，如图操作技巧：先按住Ctrl+H显示替换框出来，在‘查找目标’框中输入 ^(\[^type\]\)type.\$ ，在替换框中输入 $1

左手的ㄟ右手/ 2021年12月05日 05:59/ 0 赞/ 276 阅读

相关 quicksearch技巧集合

1,加入谷歌手气不错，直接打开最相关的网站。将下面的url添加到url栏里，即可。 http://www.google.cn/search?hl=zh-CN &sourc

矫情吗；*/ 2021年11月22日 10:14/ 0 赞/ 286 阅读

相关 Delphi 技巧集合

一、系统 1、打开其它程序、文件： uses ShellAPI; ShellExecute(Application.Handle, n

小灰灰/ 2021年11月05日 09:36/ 0 赞/ 313 阅读