Delphi Shadow窗口阴影立体效果

Delphi 7.0 改变菜单中的字体样式，本程序其实实现了两种功能，1、枚举系统中所有已安装的字体，并加载到Listbox列表中供选择，2，改变字体样式，选中列表中的任意字体样式，单击即可改变菜单中的文字样式，为窗口中其它区域的文字设置字体样式的时候也可参考。 　　begin 　　 ListBox1.Items:=Screen.Fonts;字体样式 　　 self.MainMenu1.AutoHotkeys:=maManual; 　　 self.MainMenu1.AutoLineReduction:=maManual; 　　 Screen.MenuFont.Size:=12;字号 　　end;

Delphi 获取并显示当前Windows时间的例子，这个例子比较简单了，程序就完成一项功能，打开窗口后，点击按钮，即可获取当前的系统时间，并显示在窗体上，如效果图所示。

Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。 　　主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考： 　　Canvas.FrameRect(Clientrect); 　　if odSelected in State then 　　begin 　　 Canvas.Brush.Color:=clRed; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); 　　 setBkMode(Canvas.Handle,TRANSPARENT ); 　　 Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]); 　　end 　　else 　　begin 　　 Canvas.Brush.Color:=clSkyBlue; 　　 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15); 　　 Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]); 　　end;

Delphi打开记事本和计算器等外部程序，应该说是调用外部程序，调用记事本和计处器，单击窗口中的两个按钮，分别会打开Windows自带的记事本和计算器程序。

Delphi 实现的窗体下拉动画效果，以下拉动画的方式显示一个窗口，关闭时同样有动画效果，只不过是上拉效果，让窗体变生成了，传统的窗口打开方式的确会让人觉得不新奇了，关于下拉和上拉，关键代码先帖上来，完整实例请下载本源码： 　　begin 　　 AnimateWindow(Self.Handle, 250, AW_VER_NEGATIVE or AW_HIDE); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE); 　　end;

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　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;

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

简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Dtimer : TSystemTime; 　　 hh,Ghh : Integer; 　　begin 　　 hh := StrToInt(Trim(Edit4.Text)); 　　 if hh < 8 then 　　 Ghh := 16 + hh 　　 else 　　 Ghh := hh - 8; 　　 with Dtimer do 　　 begin 　　 wYear:=StrToInt(Edit1.Text); 　　 wMonth:=StrToInt(Edit2.Text); 　　 wDay:=StrToInt(Edit3.Text); 　　 wHour:=Ghh; 　　 wMinute:=StrToInt(Edit5.Text); 　　 wSecond:=StrToInt(Edit6.Text); 　　 end; 　　 SetSystemTime(Dtimer); 　　end;

Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。 　　局域网内发消息核心代码： 　　procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string); 　　var 　　 ms:PWideChar; 　　begin 　　 ms:=PWIDEChar(WideString(msg)); 　　 NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2); 　　end; 　　procedure TFrmSendMessage.BtnSendClick(Sender: TObject); 　　begin 　　 Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text); 　　end;