Delete Delphi temporary file
Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo 以上为当前目录及子目录临时文件,请按任意键确认删除!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo 删除成功!
@pause
Rem ****************************
相关文档：
原来是要在FormCreate中加入以下代码:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//这句很关键.对于平台的支持.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
Delphi format的用法
一、Format函数的用法
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：
首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，� ......
最近要做一个图书管理系统，并且是用Delphi软件开发，很多都不懂，本来是可以从网上下载，学习一下的，可是不知道怎么破解登陆密码，运行时没办法登陆进去，5555~~好好学习，有高手指点就好了…… ......
procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, 48384, 9, 0);
end;
end; ......
Ctrl+PageUp 将光标移至本屏的第一行，屏幕不滚动。
Ctrl+PageDown 将光标移至本屏的最后一行，屏幕不滚动。
Ctrl+↓ 向下滚动屏幕，光标跟随滚动不出本屏。
Ctrl+↑ &nb ......
