Delphi7 计算汉字的笔划

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 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;

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

Delphi 把时间格式转换成字符串来显示，在运行的程序界面中，选择一个指定的日期后，可将此日期转换成字符串格式的，也就是不再具备时间的属性，但是自身已经变为字符串了。人可以识别，但机器不再识别为时间了。 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 DateTimePicker1.Date:=now(); 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 edit1.Text:=datetostr(DateTimePicker1.Date); 　　end;

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法 　　 pushad 　　 push ebp //#2，保存ebp 　　 sub esp,$2c //#1，预留2c字节的栈空间 　　 push Int13Reg16 //第一参数，如果没有参数，则不用push 　　 //第二参数，如果没有参数，则不用push 　　 mov edx, pFunc //函数地址 　　 mov ebp,esp // 　　 add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的 　　 call QT_Thunk 　　 add esp,$2c //#1，释放上面预留的2c字节的栈空间 　　 pop ebp //#2，恢复ebp 　　 mov byte ptr @result,al 　　 popad 　　 end;

Delphi 获取MonthCalendar中选择的日期，其实就是完成一个时间、日期的选择功能，年份、月份、日期、时间都可自定义调整并选择，这个简单的例子，可演示Delphi中MonthCalendar的用法，生成一个日期时间选择器功能。下面是相关代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Year,Month,Days: Word; 　　begin 　　 DecodeDate(MonthCalendar1.Date,Year,Month,Days); 　　 Edit1.Text:=IntToStr(Year); 　　 Edit2.Text:=IntToStr(Month); 　　 Edit3.Text:=IntToStr(Days); 　　end; 　　全部源码请下载本实例包。

Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码： 　　procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent); 　　var 　　 nProps, i: Integer; 　　 PropList: PPropList; 　　 Value: Variant; 　　 newNode: IXmlNode; 　　begin 　　 nProps := GetTypeData (Comp.ClassInfo)^.PropCount; 　　 GetMem (PropList, nProps * SizeOf(Pointer)); 　　 try 　　 GetPropInfos (Comp.ClassInfo, PropList); 　　 for i := 0 to nProps - 1 do 　　 begin 　　 Value := GetPropValue (Comp, PropList [i].Name); 　　 NewNode := iNode.AddChild(PropList [i].Name); 　　 NewNode.Text := Value; 　　 if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then 　　 if TObject (Integer(Value)) is TComponent then 　　 NewNode.Text := TComponent (Integer(Value)).Name 　　 else 　　 ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent); 　　 end; 　　 finally 　　 FreeMem (PropList); 　　 end; 　　end;

Delphi 控制键盘指示灯，控制键盘灯打开或关闭。就像大小写切换时候，小键盘上面的灯会亮起、关闭，比较简单的一个小功能，适合入门学者参考学习。

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;