摘要：procedure tform1.button1click(sender: tobject);
var
iconsizex : integer;
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the ic......
摘要：通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！
function tform1.memopain:boolean;
var
mycanvas: tcontrolcanvas;
begin
mycanvas:=tcontrolcanvas.create;
mycanvas.control:=memo1;//想在memo1上作画
with mycanvas......
3DLabel控件上一页 ...
destructor destroy; override;
procedure paint; override; 【程序编程相关:
关于用IDhttp发送网站http头的问】 【推荐阅读:
用clientsocket发送http头】
public 【扩展信息:
几个delphi书中没提过的数据库问题与】
{ public declarations }
published
{ published declarations }
property alignment : talignment read falignment write setalignment default
taleftjustify;
property caption : string read fcaption write setcaption;
property font : tfont read ffont write setfont;
property offset : byte read foffset write setoffset;
property onchange : tnotifyevent read fonchange write fonchange;
end;
implementation
constructor tidslabel.create;
begin
inherited create(compown);
ffont := tfont.create;
with compown as tform do ...
下一页 摘要：曾经有人问怎样编写支持多国语言的程序， 让它能够根据所运行的操作系统自动显示相应的文字。 而且不但要替换windows标准对话框， 还要自动替换窗口标题、 按钮标题等所有显示的文字和所有错误提示。
我想使用delphi 5的integrated translation environment (ite)可以轻易得完成这个工作。
我们创建一个示意性的工程multilanguage， 在for......
