注册 登陆
浏览模式: 标准 | 列表 分类: DELPHI

Delphi多线程编程中的技巧(转)

转自 杨帆BLOG http://www.wesoho.com/article.asp?id=2626 

好文章先给转下来 等有时间再来消化

» 阅读全文

ShowModal返回信息 窗体弹出后的返回值

  1. Var  
  2.   SetFrm :TSetes;  
  3. begin 
  4.   SetFrm :=TSetes.Create(nil);  
  5.   SetFrm.ShowModal;  
  6.   if SetFrm.ModalResult =2 then 
  7.   ShowMessage('配置重载成功!');  
  8. end;  

窗体弹出后需要接触到确认与取消按钮 modalresult :=mrOK能返回1 modalresult :=mrCancel能返回2

图片附件:
felix_001.gif

大小: 22.91 K
尺寸: 400 x 85
浏览: 69 次
点击打开新窗口浏览全图

delphi 窗体最小化问题

ShowWindow(Application.Handle ,SW_SHOWMINIMIZED),

用API的不好使

最好不要直接用API,Delphi的窗体(主窗体)是比较特殊的。
1.如果是整个程序要最小化,请使用:Application.Minimize; 恢复使用:Application.Restore;
2.如果是某个窗体要最小化,请使用类似:Form1.WindowState := wsMinimized;最大化使用Form1.WindowState := wsMaximized;恢复正常使用Form1.WindowState := wsNormal;

Delphi对cookie的操作

逛了一下 恰好看到这个对cookie的操作 代码  转载了..

Delphi代码
  1. idhtp1.CookieManager := TIdCookieManager.Create(nil);   
  2. idhtp1.CookieManager.AddCookie('baidu=sb','baidu.com');   
  3. idhtp1.Get('http://www.baidu.com');   
  4. for I := 0 to idhtp1.CookieManager.CookieCollection.Count - 1 do  
  5.   s := s + idhtp1.CookieManager.CookieCollection.Items[i].CookieText;   
  6. ShowMessage(s);  

获取窗体坐标

GetWindowRect(handle,Rect)

获得了句柄之后再去获取窗体的坐标然后Rect就是你要的坐标了

Delphi 2009注册机!强悍

很好哩下载的是1.9G的CodeGear™ Delphi® 2009  Version 12.0.3170.16989然后用这个拿去覆盖即可.

附件:magnitude.rar (1.18 M, 下载次数:2719)

转一帖 Delphi2007的DelphiX错误

今日安装了DELPHI 2006,感觉启动速度和编译速度都强于2005,IDE界面也感觉更亲切,马上把2005卸载了,顺利安装了asphyre,但安装delphiX报错,后发现只需作如下修改即可:

1、在文件DelphiXcfg.inc中添加如下代码

程序代码: [ 复制代码到剪贴板 ]
{$IFDEF VER180}
  // Delphi 10 - 2006
  {$DEFINE DelphiX_Delphi6}
  {$DEFINE DelphiX_Delphi7}
  {$DEFINE DelphiX_Delphi9}
  {$Define D5UP}
  {$Define D6UP}
  {$Define D7UP}
  {$Define D9UP}
{$ENDIF}



2、在DirectX.pas中将124行

程序代码: [ 复制代码到剪贴板 ]
NilGUID : TGUID;{$IfNDef VER6UP} absolute 0 {$EndIf};
换成 
NilGUID : TGUID;



3、DirectX.pas中185-189行

程序代码: [ 复制代码到剪贴板 ]
{$IFDEF VER5UP}
  PDirectDrawSurface = Pointer;
{$ELSE}
  PDirectDrawSurface = IDirectDrawSurface;
{$ENDIF}
换成
  PDirectDrawSurface = Pointer;



另外我是用电骡下载delphi2006的。

转 DELPHI 图片图形图像处理 PS置换滤镜效果,亮度/对比度,纹...

Delphi处理图片的文章。转载。

» 阅读全文

转一好贴 delphi的关于 代理服务器

有关于代理服务器的delphi相关代码

» 阅读全文

delphi 正则又傻不拉基了-_-#.

在delphi2007中正则又用不了了---_---

提示 没有注册类别, ClassID: {3F4DACA4-160D-11D2-A8E9-00104B365C9F}.

搞得我脸都青了。早上还用的好好的呢正则无缘无故 现在就不行了---#莫名其妙

新建项目然后再次试试导入这个Type library

默认放置到了D:\Personal\administrator\My Documents\RAD Studio\5.0\Imports 

VBScript_RegExp_55_TLB

搞来搞去删除了又继续编译运行 正则还是没有搞定 然后想想这个是vbscript.dll里面来的

死马当活马医来一个经常会用到的regsvr32 vbscript.dll注册这个dll组件 竟然成功了-_-#

不过太奇怪了 无缘无故怎么会 成了没有注册类别呢-_-#????