测试 http://xianjun.vicp.net/temp/exe.exe (300分)

我花了两个多星期写的。很多细节还没写。

能帮忙看一下吗？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2311950
你的日历式的星期输入方式很好，也想学习学习。但是质控图打印好像不好，数据部分占的太大了，项目也不全

质控图打印 是要听客户的意见。
所以 我就随便写了一个， 到时在改。

刚看了你的程序,感觉很好！佩服！我自己还要加油！

很好，很漂亮，花了多长时间做的？？

cool!我非常想知道HOOK的演示是怎么做的。我一直想做一个笔画演示程序。
mailto:xm8088@163.com
thankyou.

好酷啊，佩服佩服

请教：演示功能是怎么做出来的？

to snb_ywx: 两个多星期。
我没有用hook
procedure MouseMoveTo(x, y: integer);
procedure MouseMoveToWillClick(x, y: integer);
procedure MouseMoveToControl(V: TControl;
WillClick: boolean);

procedure MouseMoveTo(x, y: integer);
var
p: TPoint;
moveX, moveY: integer;
i: integer;
begin

GetCursorPos(p);
while (abs(x - p.X) > 20) or (abs(y - p.y) > 20)do
begin

moveX := (x - p.X);
moveY := (y - p.y);
if abs(moveX) > abs(moveY) then
begin
if moveX > 0 then
i := 20
else
i := -20;
moveY := round(moveY / moveX * i + 0.5);
moveX := i;
end
else
begin
if moveY > 0 then
i := 20
else
i := -20;
moveX := round(moveX / moveY * i + 0.5);
moveY := i;
end;
mouse_event(MOUSEEVENTF_MOVE, moveX, movey, 0, 0);
sleep(50);
GetCursorPos(p);
end;
GetCursorPos(p);
while (p.x <> x) or (p.Y <> y)do
begin
moveX := 0;
moveY := 0;
if x > p.X then
moveX := 1;
if x < p.X then
moveX := -1;
if y > p.y then
movey := 1;
if y < p.y then
movey := -1;
mouse_event(MOUSEEVENTF_MOVE, moveX, movey, 0, 0);
GetCursorPos(p);
end;
end;

procedure MouseMoveToWillClick(x, y: integer);
begin
MouseMoveTo(x, y);
sleep(400);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

procedure MouseMoveToControl(V: TControl;
WillClick: boolean);
var
p: Tpoint;
begin

p.X := v.Width div 2;
p.Y := v.Height div 2;
p := v.ClientToScreen(p);
MouseMoveTo(p.X, p.Y);
if WillClick then
begin
sleep(400);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

end;


proceduredo
_input(v: string);

proceduredo
_Input(v: string);
var
ws: widestring;
i: integer;
str: string;
begin
ws := v;
if screen.ActiveControl <> nil then
begin
for i := 1 to length(ws)do
begin
sleep(100);
str := ws;
Clipboard.SetTextBuf(pchar(str));
SendMessage(screen.ActiveControl.Handle, WM_PASTE, 0, 0);
end;
end;
end;

不错不错！
许多技术值得学习、借鉴

学习！
几个函数都很不错啊

真好，可以说从没见过，看来以后的立足点要高点了！

不错，完善完善

挺漂亮的，只是功能不懂如何用

大家提意见

Raizey这套控件确实很好用啊

要什么 空间啊 ？？

hfghfghfg,你的程序很牛B！

多人接受答案了。