Delphi 技巧集合

小灰灰 2021-11-05 09:36 319阅读 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 条评论，319人围观）

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

相关阅读

相关前端 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 赞/ 245 阅读

相关《DELPHI赋》

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3h5emhh

今天药忘吃喽~/ 2022年09月07日 15:50/ 0 赞/ 195 阅读

相关 Javascript技巧大集合

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

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

相关 delphi中的调试技巧

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

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

相关 Delphi 计算器

计算器V1: unit Unit1; interface uses Windows, Messages, SysUt

本是古典何须时尚/ 2022年04月16日 04:07/ 0 赞/ 340 阅读

相关 Google搜索技巧集合

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

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

相关 Notepad++操作技巧集合

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

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

相关 quicksearch技巧集合

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

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

相关 Delphi 技巧集合

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

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