CnPack Forum


 
Subject: [开发技巧] Delphi / BCB / 第三方工具使用技巧
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-10 23:51  Profile | Site | Blog | P.M. 
[开发技巧] Delphi / BCB / 第三方工具使用技巧

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

声明:由于本论坛的内容会发布给所有 CnWizards 用户,请勿在本论坛中回复无意义的回帖,否则一律删除!

如果确实需要针对某个帖子回帖,请点击帖子右下角的“引用”或“回复”来回帖。

回复前请先阅读注意事项:
http://bbs.cnpack.org/viewthread.php?tid=6440

警告:过多的使用代码技巧可能降低代码的可读性和可维护性,本帖提供的内容仅供技术参考,请酌情使用。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-13 16:57  Profile | Site | Blog | P.M. 
在代码编辑器中,按住 Ctrl 键再滚动滚轮,每次可以滚动一个页面。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-13 17:00  Profile | Site | Blog | P.M. 
在代码编辑器中,按 Shift+Ctrl+C 可以为定义的类方法生成实现代码或声明代码,也可以为定义的属性补齐声明。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-13 17:07  Profile | Site | Blog | P.M. 
调试程序时,按 Ctrl+F7 可以打开 Evaluate/Modify 窗口。
在 Expresssion 中可以输入复杂的表达式,如:TComboBox($A483D0).Items.Text 或 TObject(EDX+$24).ClassName,简单变量还可以在 New Value 中修改变量值。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-19 17:29  Profile | Site | Blog | P.M. 
在代码编辑器中,按住Alt键再拖动鼠标,可以按列块方式选择代码。选中的列块也可以进行复制、删除、粘贴以及块内替换等操作。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-23 13:35  Profile | Site | Blog | P.M. 
是不是觉得 Delphi 自带的那个 Hand 光标很难看?没关系,一行代码解决问题:

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




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-4-23 13:39  Profile | Site | Blog | P.M. 
在代码编辑器中按 Ctrl+E 可以进入增量搜索状态,输入要查找的文本内容,可以从当前光标开始进行搜索。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-5-3 13:30  Profile | Site | Blog | P.M. 
在IDE窗体设计器中,按Shift+方向键可以以像素为单位调整当前选择所有控件的宽度和高度,按Ctrl+方向则是调整位置。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-5-3 13:32  Profile | Site | Blog | P.M. 
在IDE窗体设计器中,如果拖动控件时按住Alt键,可以临时禁用自动对齐到网格的功能。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-5-6 09:57  Profile | Site | Blog | P.M. 
在 IDE 的主窗口上,有一个“Desktop”工具栏,“Save current desktop” 按钮可以将当前设定好的桌面布局保存下来,“Set debug desktop”则可以将某个已保存的桌面设定为调试时使用的桌面布局。




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-5-6 10:07  Profile | Site | Blog | P.M. 
如果希望访问其它单元声明的类的 protected 方法或属性,可以在本单元定义一个该类的子类,并将要访问对象的实例强制类型转换为子类来访问。比如:

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

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




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-5-6 10:23  Profile | Site | Blog | P.M. 
有时候,我们需要少量修改或增加已有控件的行为或属性,但又不想新写个控件注册到组件面板上或动态创建来用,可以通过同名控件派生来实现。

以下这个简单的例子,为 TPanel 增加了 OnPaint 事件:

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.





Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
jjwwang
普通灌水员
Rank: 2



UID 40594
Digest Posts 0
Credits 50
Posts 22
点点分 50
Reading Access 10
Registered 2008-6-22
Status Offline
Post at 2010-5-22 22:33  Profile | Blog | P.M. 
按上面的方法,也可以这样。

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.

Top
zjy
管理员
Rank: 9Rank: 9Rank: 9



UID 2
Digest Posts 6
Credits 2385
Posts 1543
点点分 2385
Reading Access 102
Registered 2002-12-16
Location China
Status Offline
Post at 2010-6-10 14:41  Profile | Site | Blog | P.M. 
写程序找不到好看的图标?没问题,海量免费图标来这里找吧:

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




Zhou JingYu
CnPack Administrator
http://www.cnpack.org/
Top
czsky
新警察
Rank: 1



UID 43090
Digest Posts 0
Credits 2
Posts 1
点点分 2
Reading Access 10
Registered 2009-8-14
Status Offline
Post at 2010-8-8 23:22  Profile | Blog | P.M. 
调试程序时的一个很实用的方法

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



UID 590
Digest Posts 0
Credits 399
Posts 199
点点分 399
Reading Access 100
Registered 2004-11-29
Status Offline
Post at 2010-12-2 13:57  Profile | Blog | P.M.  | QQ
在delphi中使用go语言的defer方法

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

program demo_defer;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  coroutineUnit; //还是用这个单元。。。还是在附件里

begin
TProc(procedure()  //这个函数演示将一个文件的内容,拷到另一个文件里
    var
        f1, f2: Integer;  //两个文件指针,f1的内容要拷到f2里
    begin
    f1:=FileOpen('f1', fmOpenRead);   //打开f1文件
    defer(procedure()  //defer函数将参数函数保存起来,在它所属的函数退出时再调用。
        begin
        FileClose(f1);
        Writeln('f1被关闭');
        end);
    f2:=FileOpen('f2', fmOpenWrite);  //再打开f2文件
    if f2=-1 then begin  
        Writeln('f2打开失败');
        Exit;  //果断退出,不必考虑f1的状态
    end;
    //copyContent(f1, f2);   //开始copy(假设有这个拷贝函数存在)
    FileClose(f2);
    end)();

Readln;
end.


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

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

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




All times are GMT++8, the time now is 2024-3-29 13:34

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.010510 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP