摘要：
unit usingleton;
interface
uses sysutils;
type esingletonexception = class(exception);
tsingleton = class private // 单例类真正使用的构造函数，此处命名为createnew constructor createnew; public // 用于阻止显式调用，因为即便将其设......
摘要：
vcl control messages (values): parameters: comments:
cm_base
($b000)
cm_activate no params used when app is actived or a
(cm_base + 0) custom form is modally shown
cm_deactiv......
保存页面为MHT的代码
heres how to save a web page as a single file (mht format) using delphi code:
uses cdo_tlb, adodb_tlb;
...
procedure wb_saveas_mht(wb: twebbrowser; filename: tfilename);
var
msg: imessage;
conf: iconfiguration;
stream: _stream;
url : widestring;
begin
if not assigned(wb.document) then exit;
url := wb.locationurl;
msg := co... 下一页
摘要：
用过photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与mdi程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。 用spy & capture查看一下就不难发现，这些面板窗体的......
