delphi控件大小随窗体大小变化

Question

您好：
    您有delphi控件大小随窗体大小变化的源码吗？
非常感谢！！！                     新手敬上

Answer 1

自己在OnResize事件中计算不行吗?

Answer 2

http://topic.csdn.net/t/20030506/09/1743910.html
这里面有解答~ScaleBy，搞定这个函数。

Answer 3

控件有个Anchors锚点属性，就是固定某个方向和容器边界的距离。
object Memo1: TMemo
  Anchors = [akLeft, akTop, akRight, akBottom]
end

Answer 4

scaled:=true;
  if (screen.width<>orignwidth) then
begin
 height:=longint(height)*longint(screen.height)div orignheight;
width:=longint(width)*longint(screen.width)div orignwidth;
scaleby(screen.width,orignwidth);
end;