盒子论坛 v2.1

你的意思是找到被其他程序窗口所遮挡的位置么。。。。
应该还是可以办到的吧~
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志,
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/30 19:22:29

2楼：

不是被其他窗口所遮挡的位置，是一个窗口只有部分在屏幕内，windows刷新这个窗口时就会只刷新在屏幕内显示的部分，我是要取这部分的坐标。
----------------------------------------------

作者：

restboy (枫☆白水煮大虾)	★☆☆☆☆	-
	盒子活跃会员

2004/3/30 19:37:00

3楼：

部分在屏幕内的话，用0,0,screen.width,screen.height 分别对应form的四个属性判断一下可以么~
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志,
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/30 21:40:36

4楼：

自己搞定；
使用Canvas的ClipRect属性，通过和窗体的坐标相计算得到。
unit  Unit1;

interface

uses
Windows,  Messages,  SysUtils,  Variants,  Classes,  Graphics,  Controls,  Forms,
Dialogs,  StdCtrls;

type
TForm1  = class(TForm)

Button1:  TButton;
procedure  FormCreate(Sender:  TObject);
private
{ Private declarations }
procedure  rePaint(var  Msg:  TWMPAINT);message  WM_PAINT;
public
{ Public declarations }
end;

var
Form1:  TForm1;
DC:  HDC;
lpPaint:  TPaintStruct;
implementation

uses  Unit2;

{$R dfm}
procedure  TForm1.rePaint(var  Msg:  TWMPAINT);
begin
BeginPaint(DC,  lpPaint);
with  form2  do
begin
edtTop.Text  :=  IntToStr(self.Top  +  self.Canvas.ClipRect.Top);
edtLeft.Text  :=  IntToStr(self.Left  +  self.Canvas.ClipRect.Left);
edtBottom.Text  :=  IntToStr(self.Top  +  self.Canvas.ClipRect.bottom);
edtRight.Text  :=  IntToStr(self.Left  +  self.Canvas.ClipRect.Right);
end;
EndPaint(DC,  lpPaint);
end;

procedure  TForm1.FormCreate(Sender:  TObject);
begin
DC  :=  GetWindowDC(self.Handle);
end;

end.

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/30 21:52:56

5楼：

表扬！
----------------------------------------------

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/30 21:57:51

6楼：

惭愧啊，自己还是不够努力。有依赖性啊。
----------------------------------------------

信息

登陆以后才能回复