Delphi技巧
aluyue
快乐的活着...
展开
-
Delphi技巧集
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpan转载 2008-03-28 10:28:00 · 1127 阅读 · 0 评论 -
纪录随滑轮滚动
在窗体上添加一个ApplicationEvent控件,然后在它的OnMessage事件里写以下代码: procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;var Handled:Boolean); begin if(DBGrid1.Focused)And(Msg.message=WM_MOUSEWHEEL)then begin原创 2008-04-01 11:25:00 · 506 阅读 · 0 评论 -
RegisterHotKey函数
转载:RegisterHotKey()实现Alt+E的快捷键组合功能2007-07-30 09:48 [问题提出] 有的程序需要自定义组合键完成一定功能,如何实现? [解决方法] RegisterHotKey函数原型及说明: BOOL RegisterHotKey( H转载 2008-04-14 16:01:00 · 6154 阅读 · 0 评论 -
分割字符串
function SplitStr(Source:String;ch:string):TStringList;var temp:String; i:Integer;begin Result := TStringList.Create; if Source= then exit; temp:=Source; i:=pos(ch,Source); if i > 0 the原创 2008-05-20 09:42:00 · 336 阅读 · 0 评论 -
程序运行一次
program EmpControl;uses Forms, windows, Dialogs, MainUnit in MainUnit.pas {MainForm}, UploadEmpBaseUnit in UploadEmpBaseUnit.pas {frmUploadEmpBase};{$R *.res} var hMutex:HWND;begin A原创 2008-05-20 09:44:00 · 399 阅读 · 0 评论 -
代码压缩旋转图片
procedure ChangPicSize(SourceFileName, DescFileName: string; X,Y:Integer);var jpg,SourceJpg: TJPEGImage; bmp, SourceBmp, tmpbmp: TBitmap;begin if UpperCase(ExtractFileExt(SourceFileName)) = .JPG原创 2008-05-20 09:46:00 · 543 阅读 · 0 评论