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;