[开发技巧] Delphi / BCB / 第三方工具使用技巧

本帖用来发表 Delphi、C++ Builder 及第三方工具的使用技巧，管理员将定期将发表的帖子放到 RSS 源文件中。

[color=red]声明：由于本论坛的内容会发布给所有 CnWizards 用户，请勿在本论坛中回复无意义的回帖，否则一律删除！[/color]
[color=#ff0000][/color]
[color=#ff0000]如果确实需要针对某个帖子回帖，请点击帖子右下角的“引用”或“回复”来回帖。[/color]
[color=red][/color]
[color=red]回复前请先阅读注意事项：[/color]
[color=#ff0000][url=http://bbs.cnpack.org/viewthread.php?tid=6440]http://bbs.cnpack.org/viewthread.php?tid=6440[/url][/color]

[color=blue]警告：过多的使用代码技巧可能降低代码的可读性和可维护性，本帖提供的内容仅供技术参考，请酌情使用。[/color]

在代码编辑器中，按住 Ctrl 键再滚动滚轮，每次可以滚动一个页面。

在代码编辑器中，按 Shift+Ctrl+C 可以为定义的类方法生成实现代码或声明代码，也可以为定义的属性补齐声明。

调试程序时，按 Ctrl+F7 可以打开 Evaluate/Modify 窗口。
在 Expresssion 中可以输入复杂的表达式，如：TComboBox($A483D0).Items.Text 或 TObject(EDX+$24).ClassName，简单变量还可以在 New Value 中修改变量值。

在代码编辑器中，按住Alt键再拖动鼠标，可以按列块方式选择代码。选中的列块也可以进行复制、删除、粘贴以及块内替换等操作。

是不是觉得 Delphi 自带的那个 Hand 光标很难看？没关系，一行代码解决问题：

Screen.Cursors[crHandPoint] := LoadCursor(0, IDC_HAND);
放在主窗体 OnCreate 事件里，或放在任意一个单元 initialization 节都可以。
同样的方法还可以替换掉其它感觉不爽的默认光标。

在代码编辑器中按 Ctrl+E 可以进入增量搜索状态，输入要查找的文本内容，可以从当前光标开始进行搜索。

在IDE窗体设计器中，按Shift+方向键可以以像素为单位调整当前选择所有控件的宽度和高度，按Ctrl+方向则是调整位置。

在IDE窗体设计器中，如果拖动控件时按住Alt键，可以临时禁用自动对齐到网格的功能。

在 IDE 的主窗口上，有一个“Desktop”工具栏，“Save current desktop” 按钮可以将当前设定好的桌面布局保存下来，“Set debug desktop”则可以将某个已保存的桌面设定为调试时使用的桌面布局。

如果希望访问其它单元声明的类的 protected 方法或属性，可以在本单元定义一个该类的子类，并将要访问对象的实例强制类型转换为子类来访问。比如：

type
  TControlAccess = class(TControl); // 定义子类
...
  TControlAccess(AControl).Click; // 强制转换为子类以访问 protected 方法

PS：这种方法事实上破坏了封装原则，仅在某些特殊情况下应用。

有时候，我们需要少量修改或增加已有控件的行为或属性，但又不想新写个控件注册到组件面板上或动态创建来用，可以通过同名控件派生来实现。

以下这个简单的例子，为 TPanel 增加了 OnPaint 事件：
[code]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

  // 以相同类名派生一个子类
  TPanel = class(ExtCtrls.TPanel)
  private
    FOnPaint: TNotifyEvent;
  protected
    // 重载一个方法
    procedure Paint; override;
  public
    // 新定义一个事件
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  end;

  TForm1 = class(TForm)
    pnl1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure OnPnlPaint(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TPanel }

procedure TPanel.Paint;
begin
  inherited;
  if Assigned(FOnPaint) then
    FOnPaint(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 新增加的事件只能在运行期动态关联
  pnl1.OnPaint := OnPnlPaint;
end;

procedure TForm1.OnPnlPaint(Sender: TObject);
begin
  // 这一句是可以执行到的
  pnl1.Canvas.TextOut(10, 10, 'Test');
end;

end.[/code]

按上面的方法，也可以这样。

[code]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TSpeedButton = class(TButton)
  public
    constructor Create(Aowner: TComponent); override;
  end;


  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TSpeedButton }

constructor TSpeedButton.Create(Aowner: TComponent);
begin
  inherited Create(AOwner);
  Caption := 'TSpeedButton to TButton';
end;

end.[/code]

写程序找不到好看的图标？没问题，海量免费图标来这里找吧：

[url=http://findicons.com/]http://findicons.com/[/url]
人如其名，FindIcons.com就是一个帮您找免费图标的图标搜索引擎。它有一个全世界最大的可搜索的图标库（哪里还有更大的图标库，请告诉我们）以及先进的搜索过滤和匹配算法让您能够轻松找到每个设计任务中需要的图标。

调试程序时的一个很实用的方法

在使用断点调试时，按住Ctrl键,再用鼠标点击变量，可以修改变量值。
:) 管理员辛苦了，每个上cnpack的程序员应该多发发这方面的帖子，能提高不少工作效率。

在delphi中使用go语言的defer方法

[color=#000080][b][color=black]    在实现函数时，如果中间的步骤出错，需要释放资源并退出函数，这些工作很繁杂，容易出错。 go语言的作者对过去十年软件开发的经历感到失望，针对这个问题，他带来了defer方法，它能让不管在函数内的哪个地方exit，都确保你有机会清扫干净。[/color][/b][/color]

[color=#000080][b]program[/b][/color] [color=#000000]demo_defer[/color];

[i]{$APPTYPE CONSOLE}[/i]

[color=#000080][b]uses[/b][/color]
  [color=#000000]SysUtils[/color][color=#000000],[/color]
  [color=#000000]coroutineUnit[/color]; [color=darkgreen]//还是用这个单元。。。还是在附件里
[/color]
[color=#000080][b]begin[/b][/color]
[color=#000000]TProc[/color]([color=#000080][b]procedure[/b][/color]()  [color=#006400]//这个函数演示将一个文件的内容，拷到另一个文件里[/color]
    [color=#000080][b]var[/b][/color]
        [color=#000000]f1[/color][color=#000000],[/color] [color=#000000]f2[/color][color=#000000]:[/color] [color=#000080][b]Integer[/b][/color];  [color=#006400]//两个文件指针，f1的内容要拷到f2里[/color]
    [color=#000080][b]begin[/b][/color]
    [color=#000000]f1[/color][color=#000000]:=[/color][color=#000000]FileOpen[/color]([color=#0000ff]'f1'[/color][color=#000000],[/color] [color=#000000]fmOpenRead[/color]);   [color=#006400]//打开f1文件[/color]
    [color=#000000]defer[/color]([color=#000080][b]procedure[/b][/color]()  [color=#006400]//defer函数将参数函数保存起来，在它所属的函数退出时再调用。[/color]
        [color=#000080][b]begin[/b][/color]
        [color=#000000]FileClose[/color]([color=#000000]f1[/color]);
        [color=#000000]Writeln[/color]([color=#0000ff]'f1被关闭'[/color]);
        [color=#000080][b]end[/b][/color]);
    [color=#000000]f2[/color][color=#000000]:=[/color][color=#000000]FileOpen[/color]([color=#0000ff]'f2'[/color][color=#000000],[/color] [color=#000000]fmOpenWrite[/color]);  [color=#006400]//再打开f2文件[/color]
[color=#000080][b]    if[/b][/color] [color=#000000]f2[/color][color=#000000]=-[/color][color=#0000ff]1[/color] [color=#000080][b]then[/b][/color] [color=#000080][b]begin  [/b][/color]
        [color=#000000]Writeln[/color]([color=#0000ff]'f2打开失败'[/color]);
        [color=#000080][b]Exit[/b][/color];  [color=#006400]//果断退出，不必考虑f1的状态[/color]
    [color=#000080][b]end[/b][/color];
    [i]//copyContent(f1, f2);   [color=#006400]//开始copy（假设有这个拷贝函数存在）[/color][/i]
    FileClose(f2);
[color=#000080][b]    end[/b][/color])();

[color=#000000]Readln[/color];
[color=#000080][b]end[/b][/color][color=#000000].[/color]


[b]    以往在处理这种情形时，需要判断f2打开是否失败，如果失败的话需要将f1关闭再退出，如果这个函数很复杂，有可能会忘记关闭，而用这个方法，确保不管你写多少个exit，关闭f1的代码都会被执行到。[/b]

[b]    实际输出的结果是  :[/b]
[b]f2打开失败[/b]
[b]f1被关闭[/b]

[b]附件在这个贴里[/b]
[url=http://bbs.cnpack.org/viewthread.php?tid=9553&pid=23145&page=1&extra=page%3D1#pid23145]http://bbs.cnpack.org/viewthread.php?tid=9553&pid=23145&page=1&extra=page%3D1#pid23145[/url]