| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3271270
建立时间:2005年6月6日 |
| |
|
 [delpih编程]在TWebBrowser 屏蔽右键的弹出菜单.弹出自己的菜单
软件技术
吕向阳 发表于 2009/7/3 10:23:17 |
创建一个TApplicationEvents控件(别说你不知道在哪里*_*)
在控件的onMessage事件输入:
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message =
WM_RBUTTONDBLCLK) then
begin
if IsChild(Webbrowser1.Handle, Msg.hwnd) then
//这里的Webbrowser1必须对应你的TWebbrowser命名,
begin
//这里可以输入你自己的东西,例如弹出你自己的右键菜单,我这里是弹
出信息框!
ShowMessage('some things');
Handled := True; //屏蔽这句,右键菜单就可以弹出
end;
end;
|
|
|
[delpih编程]最新原版QQ去广告方法
软件技术
吕向阳 发表于 2009/7/3 7:28:54 |
大家都很羡慕QQ会员的聊天窗口吧，没有广告也干干净净的，今天我就
教大家如何制作这样的聊天窗口，即使你不是会员也一样可以办道，希
望喜欢原版QQ的还讨厌广告的朋友进来。
首先显找到QQ的安装目录：比如我的QQ安装在C:\Program Files\QQ\文
件夹下，你就可得到C:\Program Files\QQ\NewSkins\QQ2007（根据你
正在使用的版本有关，不一定非得是QQ2006，2007BATE4也行）\IMSkin
\ IMSkin.ini这个文件，如果没找到，就直接在地址栏输入C:\Program
Files\QQ\NewSkins\QQ2007\IMSkin\IMSkin.ini。如果安装在别的盘换
一下前面的部分。
首先备份一下 IMSKIN.INI
然后用记事本打开，很乱吧？别急！用记事本得编辑：
ctrl+F 查找键
1、查找功能先找rightSpace字符串，找到后发现把rightSpace=0改为
rightSpace=- |
|
|
[delpih编程]fastreport中限定打印指定记录
软件技术
吕向阳 发表于 2009/7/1 9:50:41 |
报表设计一般先加两个控件 frxreport(报表控件)和tfrxdbdataset
（报表数据连接控件，连接到table和query).
我注意tfrxdbdataset有几个属性：
rangebegin,rangeend,rangeendcount
只打印当前行时设：
rangebegin：rbcurrent
rangeend:recurrent
打印前五行
rangebegin：rbfirst
rangeend:recount
rangeendcount:5
打印所有
rangebegin：rbfirst
rangeend:relast
依此类推。按此方法可实现fastreport只打印当前一行，也可打印连续
多行。
|
|
|
[delpih编程]fastreport的主从表设计(用adoquery连接)
软件技术
吕向阳 发表于 2009/6/30 22:22:38 |
1.主表与从表通过X_A这个字段做联系的,主表名为:X_ENG,从表名
为:l_eng,主表用ADOQUERY1做连接,从表用ADOQUERY2做连接.
2.ADOQUERY1的SQL.TEXT(select * from x_eng),
ADOQUERY2的SQL.TEXT(select * from l_eng where x_a=:ll).
3.加入一个datasource,adoquery1,adoquery2的datasource都指向它
4.很关键 ，在ADOQUERY1(主表)的AfterScroll事件写入如下代码:
with DataSet do begin
adoquery2.close;
adoquery2.Parameters[0].value :=FieldbyName('x_a').value;
adoquery2.Open;
end;
5.加入两个tfrxdataset,分别连接adoquery1,adoquery2
6.此时进入双 |
|
|
[delpih编程]delphi中当月第一天最后一天的函数
软件技术
吕向阳 发表于 2009/6/30 16:42:57 |
//获取任务栏尺寸
procedure GetMonthDay(const ADate: TDateTime;
var AMonthFirst, AMonthLast: TDateTime);
var
Year, Month, Day: Word;
begin
DecodeDate(ADate, Year, Month, Day);
AMonthFirst := EncodeDate(Year, Month, 1);
if Month + 1 > 12 then
AMonthLast := EncodeDate(Year + 1, 1, 1)
- 1
else
AMonthLast := EncodeDate(Year, Month + 1,
1) - 1
end;
procedure GetMonthDay(const ADate: TDateTime;
var AMonthFirst, AMonthLast: TDateTim |
|
|
[delpih编程]delphi 的webbrowser执行javascipt代码小例
软件技术
吕向阳 发表于 2009/6/29 21:17:52 |
procedure TForm14.Button15Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.parentWindow.execScript
('changePage(''2'')', 'JavaScript');
//changePage(''2'')是javascript程序名及参数
end;
|
|
|