Delphi 使同类的组件进行同样的操作

Delphi 打印图形，把图片打印出来，通过这个例子，你可以学习到： 　　 strect:Trect;//定义打印输出矩形框的大小 　　 temhi,temwd:integer; 　　begin 　　 if DIGPrint.execute then 　　 begin 　　 temhi:=imgpic.picture.height; 　　 temwd:=imgpic.picture.width; 　　 while (temhi = printer.pageheight div 2)and 　　 //将图形放大到打印页面的1/2大小 　　 (temwd = printer.pagewidth div 2) do 　　 begin 　　 temhi:=temhi+temhi; 　　 temwd:=temwd+temwd; 　　 end; 　　 with strect do //定义图形在页面上的中心位置输出 　　 begin 　　 left := (printer.pagewidth -temwd) div 2; 　　 top := (printer.pageheight-temhi) div 2; 　　 right := left+temwd; 　　 bottom := top+temhi; 　　 end; 　　 with printer do 　　 begin 　　 begindoc; 　　 canvas.stretchdraw(strect,imgpic.picture.graphic); 　　 enddoc; 　　 end; 　　 end;

关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 S:integer; 　　begin 　　 S:=2147483647; 　　 showmessage(inttoHex(s,8)); 　　 showmessage(inttoHex(s,10)); 　　 showmessage(inttoHex(s,16)); 　　 showmessage(inttoHex(s,32)); 　　end;

Delphi 模拟Windows “显示桌面”功能，对于功能就不再详述了，单击后，会看到Windows桌面，具体的实现方法也挺简单的，下面几行代码就搞定了： 　　if IsWindowVisible(h) then 　　 PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); 　　h := GetNextWindow(h, GW_HWNDNEXT); 　　完整的可编译源码请你下载源码包吧。

Delphi 返回指定数值的绝对值，计算正负数绝对值的例子，FloatToStr(Abs)函数用法代码，示例中计算了小数、整数两种数据类型的绝对值，单击对应的箭头，即可查看计算结果，对应的三种计算方法，请参见以下代码： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 Edit2.Text := FloatToStr(Abs(-1.5)); 　　end; 　　procedure TForm1.SpeedButton2Click(Sender: TObject); 　　begin 　　 Edit4.Text := FloatToStr(Abs(-200)); 　　end; 　　procedure TForm1.SpeedButton3Click(Sender: TObject); 　　begin 　　 Edit6.Text := FloatToStr(Abs(-1.80)); 　　end;

Delphi 将数字转换成字符串，请参见以下的转换代码，转换成功后将以 showmessage的形式返回结果，核心转换功能代码实现： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i:integer; 　　 s:string; 　　begin 　　 i:=1234567; 　　 s:=inttostr(i); 　　 showmessage(s); 　　end;

Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： 　　vh := Hour/12.0*2*Pi; 　　vm := Min/60.0*2*Pi; 　　vs := Sec/60.0*2*Pi; 　　with Canvas do 　　begin 　　 Pen.Width:=4; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh))); 　　 Pen.Width:=2; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm))); 　　 Pen.Width:=1; 　　 Pen.Color := clRed; 　　 MoveTo(60,60); 　　 LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs))); 　　end; 　　窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。

Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码： 　　for i:=0 to self.Width-1 do 　　begin 　　c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); 　　c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1)); 　　c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1)); 　　Canvas.Brush.Color:=RGB(c1,c2,c3); 　　//每次画矩形的画刷颜色 　　Dct:=Rect(i,0,i+1,self.Height); 　　//每次刷绘的矩形区域 　　Canvas.FillRect(Dct); 　　//填充颜色 　　end;

这是一款基于Delphi和Access数据库的编程案例：教材管理系统源码，经过修正完善后可作为学校的教材管理程序，功能模块主要有：系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。

Delphi 让组件拖动窗体 按钮拖动窗口移动，如图所示的窗口中，用户只需按住按钮，即可将整个窗口在屏幕上随意拖动，实现了如何用组件来移动窗体的功能。下面是相关代码： 　　procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; 　　 Shift: TShiftState; X, Y: Integer); 　　begin 　　 if Button=MBLeft then 　　 begin 　　 releasecapture; 　　 PerForm(WM_SYSCOMMAND,$F012,0); 　　 end; 　　end;

窗口中的弹出式右键菜单-delphi PopupMenu源码, 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Poin:TPoint; 　　begin 　　 Poin := Point(Button1.Left,Button1.Top+Button1.Height); 　　 Poin := ClientToScreen(Poin); 　　 PopupMenu1.Popup(Poin.X,Poin.Y); 　　end;