摘要：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......
执行一个外部程序并等待它的完成上一页 ...
if not createprocess(nil,cmd,nil,nil,false,create_new_console or normal_priority_class,nil,nil,startupinfo,processinfo) then
result:=0 【程序编程相关:
通过字符串，类的引用，创建窗体。
】 【推荐阅读:
一个更加强大易用的XML库 -- Nat】
else 【扩展信息:
用clientsocket发送http头】
begin
waitforsingleobject(processinfo.hprocess,infinite);
getexitcodeprocess(processinfo.hprocess,result);
end;
end;
摘要：通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！
function tform1.memopain:boolean;
var
mycanvas: tcontrolcanvas;
begin
mycanvas:=tcontrolcanvas.create;
mycanvas.control:=memo1;//想在memo1上作画
with mycanvas......
