随笔分类 - DELPHI
摘要：procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect; var DefaultDraw: Boolean); var i,j : Integer; Dct : TRect; begin j := ToolBar1.Height; for i:=0 to (ToolBar1.Width - 1) ...
阅读全文
摘要：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 ...
阅读全文
摘要：var NewItem:TListItem; begin ListView1.Items.Clear; NewItem:=ListView1.Items.Add; NewItem.Caption:='01'; NewItem.SubItems.Add('商品名称'); NewItem.SubItems.Add('8折'); NewItem.SubIt...
阅读全文
摘要：var frm: TForm2;//定义窗口类 begin PageControl1.activepage:=tabsheet1; if Panel1.ControlCount = 0 then begin frm := Tform2.Create(self); frm.Parent := Panel1; frm.BorderStyle := bsnone; ...
阅读全文
摘要：Var aBitmap: TBitmap; begin aBitmap := TBitmap.Create; try aBitmap.LoadFromFile('00.bmp'); ImageList1.AddMasked(aBitmap, aBitmap.TransparentColor); finally aBitmap.Free; end; end...
阅读全文
摘要：本章介绍多文本界面(MDI)、多页面界面(MPI)技术；VCL库中TMemo，TEdit 控件以及有关文本编辑的常用对话框的使用。我们开发的MPIEdit.dpr是一个文本编辑的实用程序，可实现如下功能： ● MDI的编辑环境 ● MPI的编辑环境 ● 创建打开、编辑、保存文件 ● 查找、替换文件中指定的字符串 ● 复制、粘贴、剪切字符串 ● 设置文件字体大小 ●...
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
阅读全文
浙公网安备 33010602011771号