Y yeath Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-27 #1 通过Canvas.Handle取Canvas的高度和宽度<br>比如通过TImage.Canvas.Handle，取TImage的高度和宽度。<br>GetDeviceCaps应该可以做，不过不知道怎么传参数。
通过Canvas.Handle取Canvas的高度和宽度<br>比如通过TImage.Canvas.Handle，取TImage的高度和宽度。<br>GetDeviceCaps应该可以做，不过不知道怎么传参数。
东 东兰梦舞 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-27 #3 procedure TForm1.Button1Click(Sender: TObject);<br>var<br> r: TRect;<br>begin<br> GetClipBox(self.Image1.Canvas.Handle, r);<br> showmessagefmt('%d x %d', [r.right-r.left, r.Bottom-r.top]);<br>end;<br>
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> r: TRect;<br>begin<br> GetClipBox(self.Image1.Canvas.Handle, r);<br> showmessagefmt('%d x %d', [r.right-r.left, r.Bottom-r.top]);<br>end;<br>
