内容发布更新时间 : 2024/12/23 14:36:08星期一 下面是文章的全部内容请认真阅读。

Delphi编程地一些小程序

1、用Enter键代替Tab键

在实际的程序开发中我们经常有这样的要求，用户不喜欢用Tab键，他希望用Enter键来代替。我们应该什么做呢？ 首先：设定Form的KeyPreview属性为True。

其次：把Form上的所有Button的Default属性设为False。 最后：在Form的onKeyPress事件中添加如下代码： procedure

TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if

Key = #13 then begin Key := #0;

Perform(Wm_NextDlgCtl,0,0); end; end;

-------------------------------------------------------------------------------- --作者：kgdyga 13:10:38

--

2、命令行参数的使用 命令行参数的使用

Delphi提供了访问命令行参数的方便的方式，那就是使用ParamStr和ParamCount函数。其中ParamStr(0)返回的是当前程序名，如C:TESTMYPROG.EXE，ParamStr(1)返回第一个参数，以此类推；ParamCount则是参数个数。示例如下: var I: Word; Y: Integer; begin Y := 10;

forI := 1 to ParamCount do begin

Canvas.TextOut(5, Y, ParamStr(I));

Y := Y ＋ Canvas.TextHeight(ParamStr(I)) ＋

5; end; end;