摘要：unit idslabel;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs,
extctrls;
type
tidslabel = class(tbevel)
private
{ private declarations }
fal......
摘要：procedure tform1.button1click(sender: tobject);
var
iconsizex : integer;
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the ic......
执行一个外部程序并等待它的完成
function winexecexw(cmd,workdir:pchar;visiable:integer):dword; 【程序编程相关:
通过字符串，类的引用，创建窗体。
】 【推荐阅读:
一个更加强大易用的XML库 -- Nat】
var 【扩展信息:
用clientsocket发送http头】
startupinfo:tstartupinfo;
processinfo:tprocessinformation;
begin
fillchar(startupinfo,sizeof(startupinfo),#0);
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwflags:=startf_useshowwindow;
startupinfo.wshowwindow:=visiable; ...
下一页 摘要：通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！
function tform1.memopain:boolean;
var
mycanvas: tcontrolcanvas;
begin
mycanvas:=tcontrolcanvas.create;
mycanvas.control:=memo1;//想在memo1上作画
with mycanvas......
