//Canvas 在Image控件中绘制文字procedure TForm1.Button1Click(Sender: TObject);beginimage1.Canvas.Font.Size:= 72; //设置文字大小image1.Canvas.TextOut(1,1,'Delphi'); /...
分类：
其他好文 时间：
2014-07-29 20:54:42
阅读次数：
187
uses pngimage;{显示 png 图片}procedure TForm1.Button2Click(Sender: TObject);varpng: TPngImage;beginpng := TPngImage.Create;png.LoadFromFile('C:\Temp\Test....
分类：
其他好文 时间：
2014-07-29 20:50:42
阅读次数：
182
procedure TForm1.Button1Click(Sender: TObject);Var OSVI:OSVERSIONINFO;begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO); GetVersionEx(OSVI); Capti...
//Canvas.TextOut文字保存为图片//Delphi开发案例精选，使用TextOut在画布上画图procedure TForm1.Button1Click(Sender: TObject);varMy_Image:Timage;i:integer;begintryMy_Image:=Tim...
分类：
其他好文 时间：
2014-07-29 20:42:32
阅读次数：
227
procedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle, SW_HIDE); SetWindowLong(Self.handle, GWL_EXSTYLE, GetWindowLong(Self.h...
分类：
其他好文 时间：
2014-07-29 20:41:42
阅读次数：
218
procedure TForm1.FormCreate(Sender: TObject);beginedtHour.Clear;edtMinutes.Clear;edtHs.Clear;edtSec.Clear;end;procedure TForm1.Button1Click(Sender: TO...
分类：
其他好文 时间：
2014-07-29 20:37:52
阅读次数：
184
step1 在窗体上打个矩形的洞｛鼠标可以穿透这个窗体｝procedure MakeRectHole(Ctrl:TWinControl;Form:TForm);var Rgn1, Rgn2: HRGN;begin Rgn1 := CreateRectRgn(0,0, Form.Width, Form...
添加项目 procedure TForm1.Button1Click(Sender: TObject);beginwith listview1.Items dobeginAdd.Caption:='1111111';Add.Caption:='2111111';Add.Caption:='31111...
分类：
其他好文 时间：
2014-07-29 20:34:52
阅读次数：
197
create or replace procedure pro_droptable iscursor cur is select table_name from user_tables;drop_sql varchar2(1000);begin for tbname in cur loop ...
分类：
数据库 时间：
2014-07-29 12:27:36
阅读次数：
206
1 //跑马灯 2 procedure Tfr_Main.tme_TitleTimer(Sender: TObject); 3 var 4 strTrim: Widestring; 5 begin 6 strTrim := copy(strScroll, 1, 1); // 获取第1个字符...
分类：
其他好文 时间：
2014-07-29 11:58:26
阅读次数：
239
