procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAND,$ Read More
posted @ 2016-02-25 18:37
findumars
Views(420)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Pr Read More
posted @ 2016-02-25 18:36
findumars
Views(578)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private decl Read More
posted @ 2016-02-25 18:34
findumars
Views(281)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLab Read More
posted @ 2016-02-25 18:33
findumars
Views(529)
Comments(0)
Diggs(0)
我一直认为Delphi功能与C++相比毫不逊色,提供了丰富的控件和类、全部API以及嵌入的汇编。最近小弟在把C版的Huffman压缩改用Delphi写时,顺便“研究”了一下Delphi的位操作和嵌入式汇编,利用嵌入汇编我们可以得到高效的程序代码,完成一些Delphi没有提供的底层功能。借贵报一方宝地 Read More
posted @ 2016-02-25 18:32
findumars
Views(1298)
Comments(0)
Diggs(0)