有什么Api,可以查出程序登录界的高度和宽度?
解决方案 »
- 关于TCPserver与TCPClient问题
- 难题,如何让EDIT粘住DBGRIDEH的Column
- 一个关于Variant和CopyMemory 的问题,标题中很难说明白,进来就知道了.
- 如何实现用鼠标左键点击Button弹出快捷菜单Popupmenu?
- 请问如何才能在报表中绘制表格
- FastReport的问题
- 极简单。送分题。fastreport的问题,纸张大小……
- sql explorer连接老版本oracle的问题
- 使用ADO时:"无法为更新行集定位:一些值可能已在最后读取后改变"
- 为什么form5关闭后form3就关不掉了呢???????(看里面代码:)
- 连接占线导致另一个命令
- 有谁有监视windows窗体的控件
不知道你需要GetClientRect还是GetWindowRect
这样吧,你把E_mail留下我发一个给你吧
var
i:integer;
rc:TRect;
hwnd:Thandle;
begin
hwnd:=FindWindow(PChar(0),'Form1');//form caption
GetWindowRect(hwnd,rc);
memo1.lines.add(format('left:%d,top:%d,right:%d,bottom:%d',[rc.left,rc.Top,rc.right,rc.Bottom]));//width=right-left ;height=bottom-top
end;