Delphi 技巧集合

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

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

相关阅读

相关 Delphi窗口分割并动态调节其大小,Splitter使用技巧

1,把窗口分成左右两部分，并且在运行中可以动态调节其相对大小，做法如下：　　1.在一个空白的Form中加入Panel1，Align设为alLeft。(也可根据实际情况设

小灰灰/ 2023年10月08日 10:09/ 0 赞/ 44 阅读

相关前端 CSS 用法技巧集合

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

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

相关《DELPHI赋》

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3h5emhh

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

相关 Javascript技巧大集合

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

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

相关 delphi中的调试技巧

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

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

相关 Delphi 计算器

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

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

相关 Google搜索技巧集合

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

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

相关 Notepad++操作技巧集合

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

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

相关 quicksearch技巧集合

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

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

相关 Delphi 技巧集合

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

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