浏览模式: 标准 | 列表 分类: DELPHI

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

Written by 小锋 on 08-11-26 1:33 AM

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

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

Filed under: DELPHI 0 Comments 637 Views

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

Written by 小锋 on 08-11-16 4:33 PM

Var  
  SetFrm :TSetes;  
begin 
  SetFrm :=TSetes.Create(nil);  
  SetFrm.ShowModal;  
  if SetFrm.ModalResult =2 then 
  ShowMessage('配置重载成功！');  
end;

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

图片附件:

Filed under: DELPHI 0 Comments 477 Views

delphi 窗体最小化问题

Written by 小锋 on 08-11-14 9:43 PM

ShowWindow(Application.Handle ,SW_SHOWMINIMIZED),

用API的不好使

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

Filed under: DELPHI 0 Comments 470 Views

Delphi对cookie的操作

Written by 小锋 on 08-10-09 9:11 AM

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

Delphi代码

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

Filed under: DELPHI 0 Comments 766 Views

获取窗体坐标

Written by 小锋 on 08-10-03 9:07 PM

GetWindowRect(handle,Rect)

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

Filed under: DELPHI 0 Comments 665 Views

Delphi 2009注册机！强悍

Written by 小锋 on 08-10-02 10:10 AM

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

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

Filed under: DELPHI 2 Comments 1798 Views

转一帖 Delphi2007的DelphiX错误

Written by 小锋 on 08-09-26 11:03 AM

今日安装了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的。

Filed under: DELPHI 0 Comments 676 Views