| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265580
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi定义本窗体中的热键
软件技术
吕向阳 发表于 2009/3/12 0:51:24 |
....
protected
procedure hotykey(var msg: TMessage); message WM_HOTKEY;
//定义消息响应事件
private
{ Private declarations }
public
{ Public declarations }
end;
var
formmp3: Tformmp3;
id, id2: Integer;//定义热键全局变量
....
procedure Tformmp3.FormShow(Sender: TObject);
begin
//初始注册热键
id := GlobalAddAtom('hotkey');
RegisterHotKey(ha |
|
|
[delpih编程]delphi 最大化窗体
软件技术
吕向阳 发表于 2009/3/12 0:47:32 |
procedure TForm8.FormShow(Sender: TObject);
begin
Left := 0; Width := Screen.Width;
Top := 0; Height := Screen.Height - 20;
PostMessage(self.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); //最大化
end;
|
|
|
[delpih编程]webbrowse自动填表及发博客
软件技术
吕向阳 发表于 2009/3/12 0:22:14 |
procedure TForm8.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
vtag, vdoc, o: Olevariant;
// : IHTMLElement;
i: integer;
HtmlDoc: IHTMLDocument2;
myitem: Olevariant;
str1: string;
begin
if url = 'http://blogger.org.cn/blog/user_login.asp' then
begin
o := WebBrowser1.OleObject.document.all.item('username'); |
|
|
[delpih编程]delphi动态增加可视化对象
软件技术
吕向阳 发表于 2009/3/11 13:46:02 |
| 动态增加可视化对象:
var
lbl1:tlabel;
begin
lbl1:=tlabel.create(self);
lbl1.caption:...
lbl1.height:.. width.. top.. left 等等后
一定要加一句：
self.InsertControl(lbl1);
end; |
|
|
[delpih编程]自定义tmylabel控件及font.style的用法
软件技术
吕向阳 发表于 2009/3/11 13:42:13 |
type
TMyLabel = class(TLabel)
private
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
public
constructor Create(AOwner: TComponent); override;
end;
procedure TMyLabel.CMMouseEnter(var M |
|
|