摘要：
var i: Integer; Large, Small: HICON; nIcons: Integer; begin if OpenDialog1.Execute then begin self.Image1.Canvas.Refresh; nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TfrmMain = class(TForm) btnIcon: TButton; OpenDialo... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmMain = class(TForm) CheckBox1: TCheckBox; CheckBox2: TCh... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) DriveComboBox1: TDriveComboBox; ... 阅读全文
摘要：
WinExec('rundll32.exe shell32.dll,Control_RunDLL',9); 阅读全文
摘要：
var h:hIcon; IconIndex:word; begin h:=ExtractAssociatedIcon(HInstance,PChar(Application.Exename),IconIndex); DrawIcon(Form1.Canvas.Handle, 10, 10, h); end; 阅读全文
摘要：
var Reg: TRegistry; FileExt:String; FileType:String; MIMEType:String; ExecName:String; begin FileExt:='.test'; FileType:='Test File'; MIMETYPE:='text/plain'; ExecNa... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject); var IniFile: TIniFile; begin IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Test.ini'); try if not FileExists(ExtractFilePath(paramstr(0... 阅读全文
摘要：
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Node.Text ='Red' then begin Sender.Can... 阅读全文
摘要：
这是个例子， 放个TStatusBar 然后建立3个TStatusPanel, 下面的代码把 ProgressBar 放到了第二个格子里面了。 var P: TProgressBar; begin P:= TProgressBar.Create(self); p.Parent:= StatusBar1; p.Left:= StatusBar1.Panels[0].Width + S... 阅读全文
摘要：
编辑框也是Windows程序中常用的组件，它主要用于输入单行文字。下面解释编辑框一些常用属性。 属性 说明 PasswordChar 这个属性在一些编辑... 阅读全文
摘要：
单选按钮（RadioButton）和复选按框（CheckBox）都是很常用的组件，尤其是在对话框中。单选按钮（RadioButton）是一种具有排他性的选择组件，用户每一次只能选择其中的一个（在同一个容器组件中，如同一Form上或RadioBox中）。而复选框（CheckBox）则不同，可以同时选择多个。 两种组件都有一个Checked属性，用于标识和检测是否被选中。我们使用这两个组件，给上... 阅读全文
摘要：
掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入 格式。在选用MaskEdit之后，需要为它设计一个输入格式。方法如下： 首先在窗体上将MaskEdit选中，在对象查看器（Object Inspector）中找到EditMask属性，双击它，弹出一个如下图所示的对话框。 对话框左上角的Input Mask编辑框用于输入掩码格式。掩码格式可以分为三部分，每个... 阅读全文
摘要：
Edit和MaskEdit组件都只能编辑单行文本，Delphi的Memo组件提供了多行文本的编辑功能。下面解释Memo组件常用的属性。 属性 说明 Lines ... 阅读全文