delphi一句话帮助终[4]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 u2m 的 blog

end;

6.       tcolor转换为rgb

   procedure tform1.button1click(sender: tobject);

var

      color: tcolor;

      r, g, b: integer;

begin

      color := clblack;

      r := color and $ff;

      g := (color and $ff00) shr 8;

      b := (color and $ff0000) shr 16;

      showmessage(inttostr(r));

      showmessage(inttostr(g));

      showmessage(inttostr(b));

end;

7.       浏览计算机对话框

uses shlobj;

function browseforcomputer(const winhandle : thandle; const title : string) : string;

var

  browseinfo: tbrowseinfo;

  idroot: pitemidlist;

本文关键:delphi 技巧
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top