G
guan2000
Unregistered / Unconfirmed
GUEST, unregistred user!
我目的是想在屏幕桌面上用鼠标画出一个方框来,所以想把FORM做成透明,form和桌面屏幕一样大小,然后在FORM上用鼠标画线,但是鼠标消息也透过去了,怎么办?如果用程序截获,那么截获后该怎么处理,才能不会漏到桌面上?
procedure Tfrmrect.FormCreate(Sender: TObject);
begin
Application.OnMessage:=domessage;
end;
procedure tfrmrect.domessage(var msg:TMsg ; var handled:boolean);
begin
//该如何处理才能使消息不会漏到下面去.?
end;
曾想过抓取屏幕内容,然后覆盖到FORM上,再画线,但那是静止的,不爽.
没分了,大家包涵!
procedure Tfrmrect.FormCreate(Sender: TObject);
begin
Application.OnMessage:=domessage;
end;
procedure tfrmrect.domessage(var msg:TMsg ; var handled:boolean);
begin
//该如何处理才能使消息不会漏到下面去.?
end;
曾想过抓取屏幕内容,然后覆盖到FORM上,再画线,但那是静止的,不爽.
没分了,大家包涵!