随笔分类 - Delphi应用
摘要：在PAR文件中引用UAC.RES文件(见下载地址)代码如下：{$R uac.RES}点击下载
阅读全文
摘要：关于 GIF 的相关类是 TGIFImage，在 GIFImg 单元中，看下面的代码，窗体中的 GIF 就动起来了：1 uses GIFImg;1 procedure TForm1.FormCreate(Sender: TObject);2 begin3 // 先在窗体上放一个 TImage 组件：Image1；4 Image1.Picture.LoadFromFile('C:\Example.gif');5 // AnimationSpeed 设定动画速度，值越大，速度越快；6 TGIFImage(Image1.Picture.Graphic).AnimationSpeed
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varPach:string;beginPach:='E:\123\223'; //定义目录地址if not DirectoryExists(pach) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录，创建单级目录用：CreateDirectory) ForceDirectories(Pach); endelse begin showmessage('目录已经存在'); end;end;
阅读全文
摘要：private procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND; { Private declarations } public { Public declarations } end;//禁止窗体移动procedure TSysTemCenter.WMSYSCOMMAND(var msg: TMessage);begin if msg.WParam=SC_MOVE then msg.WParam:=0;end;
阅读全文
摘要：WIN7, Vista提供的UAC机制，它的主要目的是防止对于操作系统本身的恶意修改。对于Delphi程序的影响，UAC主要在于以下几点：1、由于UAC机制，Delphi对于系统的操作可能无声的失败，而同样的程序，在2000/X下面可能运行正常。譬如注册表的改动。。。2、为了避免这样的情况，Delphi程序必须支持Vista UAC标注，也就是说，在UAC程序的图标下面显示盾牌标志。这样可以在需要系统更高权限的时候，提醒用户。为了让程序显示UAC标志，现在看来Vista是通过读取程序的资源（Resource）里面的MANIFEST资源，来决定是否显示“UAC盾牌”。为了支持UAC，Delphi
阅读全文
摘要：var s: string;begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := FormatFloat('#.###',12.3); //返回: 12.3 s := FormatFloat('0.000',12.3); //返回: 12.300 s := For
阅读全文
摘要：在c语言中有：a[5]={1,2,3,4,5} ；那么在 delphi中，这个数组的赋值该怎么写？？ 问题补充：下面有人说的对，我就是想在声明数组的时候赋初值，至于初值的内容你们不需要知道，我想知道的只是申明的时候赋值的格式，而不是通过一个过程去实现var a:=array[1..5] of integer=(1,2,3,4,5)只有全局变量才能赋初始值，而且5个值都要赋满s:array[1..264] of integer； s:=((1),(2),(2),(1),(1),(2),(2),(1),(2),(1),(1),(1),(1),(2),(2),(1),(1),(2),(1),(1).
阅读全文
摘要：问题：TEECHART使用Canvas.TextOut标注文字，然后我想把TEECHART和标注的文字一起保存成图片（CHART1.SaveToBitmapFile('D:\6789.BMP')）。但是发现保存了，那个标注的文字没有了。图表曲线倒是在的，怎么解决的？解决方法如下：1：在你的窗体加入一个TImage命名为img1，大小设置的和你的chart一样大，把visible设置成false2：cht1.Canvas.ShowImage(img1.Canvas, img1.Canvas, cht1.ClientRect);3：把你的标注用img1重新画一遍，例如：img1.C
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) pnl1: TPanel; btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); privat...
阅读全文
摘要：1、USER ：DateUtils2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可；procedure TForm1.btn1Click(Sender: TObject);begin mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))); mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now))); //mmo1.Lines.Add(DateTimeToStr(StartOfThe
阅读全文
摘要：//第一种方式procedure TForm1.btn1Click(Sender: TObject);beginWith TForm2.Create(Application) doTry ShowModal;finally free;end;end;//第二种方式procedure TForm1.btn2Click(Sender: TObject);begin if not assigned(Form2) then begin Form2:=TForm2.Create(nil); Form2.Show; endend;//第二种方式创建的的窗体需要在FORM2里释放资...
阅读全文
摘要：try ....(需要执行的代码)except on e:exception do application.MessageBox(pchar(e.Message), '错误提示', 0);end;
阅读全文
摘要：Dim firstName，radioButtonValue As String firstName=movie.GetVariable"FirstName" radioButtonValue=movie.GetVariable("/Form/RadioButton:Value") 24、IsPlaying 语法：IsPlaying() As Boolean 说明：如果影片正在播放则返回true。 例子： If movie.IsPlayingThen MsgBox"影片正在播放中！" End If 25.PercentLoaded 语
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public
阅读全文
摘要：1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type10 TForm1 = class(TForm)11 Button1: TButton;12 Button2: TButton;13 procedure Button1Click(Sender: TObject);14 procedure Button2Click(Sender: TObject);15 pri.
阅读全文
摘要：procedure TForm1.N1Click(Sender: TObject);var GridtoExcel: TDBGridEhToExcel;begin try GridtoExcel := TDBGridEhToExcel.Create(nil); GridtoExcel.DBGridEh := DBGridEh1; //需要导出数据的DBGridEh文件名 GridtoExcel.TitleName := 'EXCEL的标题'; //根据需要自行修改 GridtoExcel.ShowProgress := true; GridtoExcel.ShowOpenExc
阅读全文
摘要：var i:Integer; Series:array of TFastLineSeries; //这里最好写在全局变量中begin SetLength(Series,MyTHead.Count); Chart1.SeriesList.Clear; for i:= 0 to MyTHead.Count-1 do //MyTHead是一个Tstringlist，根据MyTHead来动态创建曲线的数量 begin Series[i]:=TFastLineSeries.Create(nil); Series[i].ParentChart:= Chart1; //在名为CHART1的组件上建曲线 Se
阅读全文
摘要：通过comport获取计算机中的所有串口号：procedure TForm1.FormCreate(Sender: TObject); //获取计算机中的串口号var Cnumber:TStrings; i:Integer;begin cbb2.Items.Clear; Cnumber:=TStringList.Create; EnumComPorts(Cnumber); //获取串口号函数：EnumComPorts for i:=0 to Cnumber.Count-1 do begin cbb2.Items.Add(Cnumber.Strings[i]) end; cbb2.ItemInd
阅读全文
浙公网安备 33010602011771号