Delphi常用的快捷键汇总

1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)

2.Shift+F8 调试时弹出CPU窗口。

3.Shift+F10 等于鼠标右键(Windows快捷键)。

4.Shitf+箭头 选择

5.shift +F12 快速查找窗体并打开

6.F7 (步进式调试同时追踪进入子过程)

7.F8 (步进式调试不进入子过程)

8.F9 运行

9.F12 切换EDITOR,FORM

10.Alt+F4 关闭所有编辑框中打开的源程序文件,但不关闭项目

11.ALT+鼠标左键 可以块选代码,用来删除对齐的重复代码非常有用

12.Ctrl+F9 编译

13.Ctrl+shift+N(n=1,2,3,4…) 定义书签

14.Ctrl+n(n=1,2,3,4…)跳到书签n

15.CTRL +SHIFT+N 在书签N处,再按一次 取消书签

16.Ctrl+PageUp 将光标移至本屏的第一行,屏幕不滚动

17.Ctrl+PageDown 将光标移至本屏的最后一行,屏幕不滚动

18.Ctrl+↓ 向下滚动屏幕,光标跟随滚动不出本屏

19.Ctrl+↑ 向上滚动屏幕,光标跟随滚动不出本屏

20.Ctrl+Home 将光标移至文件头

21.Ctrl+End 将光标移至文件尾

22.Ctrl+B Buffer List窗口

23.Ctrl+I 同Tab键

24.CTRL+J (弹出Delphi语句提示窗口,选择所需语句将自动完成一条语句)代码模板

25.Ctrl+M 同Enter键。

26.Ctrl+N 同Enter键,但光标位置保持不变

27.Ctrl+T 删除光标右边的一个单词

28.Ctrl+Y 删除光标所在行

29.CTRL+C 复制

30.CTRL+V 粘贴

31.CTRL+X 剪切

32.CTRL+Z 还原(Undo)

33.CTRL+S 保存

34.Ctrl+F 查找

35.Ctrl+L 继续查找

36.Ctrl+r 替换

37.CTRL+ENTER 定位到单元文件

38.Ctrl+F3 弹出Call Stack窗口

39.Ctrl+F4 等于File菜单中的Close项

40.Ctrl+Backspace 后退删除一个词,直到遇到一个分割符

41.Ctrl+鼠标转轮 加速滚屏

42.Ctrl+O+U 切换选择块的大小写(注意松开O后再按U,Ctrl保持按下)

43.Ctrl+K+O 切换选择块为小写(注意松开K后再按O,Ctrl保持按下)

44.Ctrl+K+N 切换选择块为大写(注意松开K后再按N,Ctrl保持按下)

45.Ctrl+Shift+G 插入GUID

46.Ctrl+Shift+T 在光标行加入To-Do注释

47.Ctrl+Shift+Y 删除光标之后至本行末尾之间的文本

48.CTRL+SHIFT+C 编写申明或者补上函数,绝好!!!

49.CTRL+SHIFT+E 显示EXPLORER

50.Ctrl+Tab 在Inspector中切换Properties页和Events页

51.CTRL+SHIFT+U 代码整块左移2个空格位置

52.CTRL+SHIFT+I 代码整块右移2个空格位置

53.CTRL+SHIFT+↑ 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义(在interface和implementation之间来回切换)

54.CTRL+SHIFT+↓ 在过程、函数、事件的定义处, 可跳跃到具体过程、函数、事件内部(同上)

55.Tab 在object inspector窗口按tab键将光标移动到属性名区,然后键入属性名的开头

字母可快速定位到该属性

56.Ctrl+Alt 按着Ctrl+Alt之后,可用鼠标选择一个矩形块中的代码,

并可比它进行复制,粘贴

57.Shift+↓、↑、→、← 以1像素单位更改所选控件大小

58.Ctrl+↓、↑、→、←以1像素单位更改所选控件位置

59.Ctrl+E 快速选择

---------GExperts中---------

60.Ctrl+Alt+c 注释块

61.Ctrl+Alt+u 取消注释块

62.Ctrl+Alt+h 生成头(更详细的设置在GExperts配置的Editor Experts属性页)

63.Ctrl+Alt+o 选择对应分隔符之间的语句

64.Ctrl+Alt+v 在对应的分隔符之间来回跳转(与已有快捷键有冲突,请更改)


65、将鼠标指向变量名、单元名、类名,再用 CTRL+鼠标左键 可找到相应的说明

66、CTRL+ SHIFT + C 编写申明或者补上函数.

如:

procedure TT.A(AA: string); //函数申明

按下:CTRL+ SHIFT + C后,会写上

procedure TT.A(AA: string);

begin

end;

67、ALT+鼠标左键可以块选代码,删除对齐的重复代码非常有用。

68、Ctrl+shift+G 产生一个GUID号

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在,返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值