怎么通过hdc获得CanVas对象的大小(10分)

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #1

比如说Form1.Canvas.然后我用了lCanvas:=form1.canvas来访问form1.canvas,这个时候，为了画图，我想知道form1的大小，以便画坐标，我该怎么做？谢谢！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #2

你到底是想知道form的大小还是canvas大小?
针对你的这个问题,只要知道form大小不就可以了??

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #3

对，就是要知道form的大小，但是不能通过直接访问form来得到，请问怎么办？！

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #4

或者说，怎么得到lCanvas的拥有者这个对象？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #5

那就奇怪了,当你lCanvas:=form1.canvas的时候不就直接访问这个form了吗?

难道是外部程序? 外部程序也不能用lCanvas:=form1.canvas这样的方法牙?
只能lCanvas.handle:=GetDC(外部窗口),即使这样,你也应该能知道"外部窗口"
的大小牙!

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #6

如果要得到一个外部程序的window大小,可以用
GetWindowRect(windowHandle, myRect);
返回值保存在myRect里面.

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #7

对于Form来说：
var
I: Integer;
F: TCustomForm;
begin
F := nil;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms.Canvas = lCanvas then
begin
//Screen.Forms就是lCanvas的拥有者
F := Screen.Forms;
Break;
end;
end;
if Assigned(F) then ...
end;
//这是我的想法，不知有没有更好的方法

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #8

是这样的。我定义了一个类
TRamus=class
private
procedure Draw;
:

public
property canvas:TCanvas read fCanvas write SetCanvas;
End;

procedure TRamus.Draw;
var
lCanvas:TCanvas;
Begin
lCanvas:=fCanvas;
//使用这个类的时候是这样的:
//var ramus:TRamus;
//ramus.canvas:=form1.canvas;
//下面要在canvas上画一个坐标，因此要知道拥有canvas的对象，如form1的大小
//才能在form1上居中画线
//这里我就不知道怎么处理来得到canvas的拥有者这个对象form1了。
End;
请再帮忙！谢谢！

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #9

cAkk说的没错，再你用lCanvas := form1.Canvas时就已经访问了那个Form对
象。如果是外部程序的话，用cAkk的方法就对了。我刚才没注意到这点，上
面的代码只适用于同一程序内的Form对象。

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #10

k! 如果仅仅在自己程序里面用,你完全可以用一个^Tform指针随时指向
当前lCanvas的拥有者form.

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #11

这样的话，你可以试一下我上面写的代码。

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #12

呵呵，如果按cAkk的办法，要先得到windowhandle,这又怎么做？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #13

越看越奇怪:

//使用这个类的时候是这样的:
//var ramus:TRamus;
//ramus.canvas:=form1.canvas;
//下面要在canvas上画一个坐标，因此要知道拥有canvas的对象，
//如form1的大小,才能在form1上居中画线
//这里我就不知道怎么处理来得到canvas的拥有者这个对象form1了。

var ramus:TRamus;
ramus.canvas:=form1.canvas;
紧接着你就使用form1的width,height属性不就可以知道居中的坐标了吗?

奇怪奇怪真奇怪! 难道我还没有理解题意????

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #14

呵呵，问题是我是在类中TRamus.Draw中来画图的，也就是说这个form1对Tramus
来说是我想让他 们直接关联很小。
不好意思，没说明白！：）

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #15

procedure TForm1.Button1Click(Sender: TObject);
var
tr:TRect;
begin
tr:=form1.Canvas.ClipRect;
showmessage(inttostr(tr.Right-tr.Left));
showmessage(inttostr(tr.bottom-tr.top));
　　
end;

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #16

呵呵,这样吧! 既然你已经定义成了一个class,那就简单了,你再给你的class
增加一个成员属性,比如叫 OwnerForm, 每次给FCanvas属性赋值的时候,
也就是在你的SetCanvas函数里面,顺便添加一条语句,把OwnerForm也赋值,
让他始终指向你的class的拥有者form,这样在你的draw函数里面就可以直接
使用OwnerForm这个成员属性的东西了(width,height......).

反正你的这个TRamus类看起来挺单薄的,加个成员进去显得酷一点.

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-04

• #17

谢谢大家。希望不嫌分数太少。：）