이미지에서 보이듯이 델파이의 툴바(ex: Debug툴)를

마우스로 드래그&드롭하여 창으로 만든다음 크기조절하면

일정한 비율로 사이즈가 변경되잖아요.

폼을 이런 툴바와 같이 만들수있는지요?

폼의 우측변(width)을 100 키우면 height를 작아지게하는 방법을 알고 싶습니다.

무엇이 잘못되었는지 좀 봐주십시오. -_ㅜ

function WidthSize_Func(Form: TForm; Size: integer; PlusMinus: Boolean): Boolean;
begin
  if PlusMinus then
  begin
     Form.Width:= Form.Width + Size;
  end
  else
  begin
     Form.Width:= Form.Width - Size;
  end;
end;

function HeightSize_Func(Form: TForm; Size: integer; PlusMinus: Boolean): Boolean;
begin
  if PlusMinus then
  begin
     Form.Height:= Form.Height + Size;
  end
  else
  begin
     Form.Height:= Form.Height - Size;
  end;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth > Width then
  begin
     WidthSize_Func(Form1, 100, True);
     HeightSize_Func(Form1, 100, True);
  end
  else if NewWidth < Width then
  begin
     WidthSize_Func(Form1, 100, False);
     HeightSize_Func(Form1, 100, False);
  end;

  NW := NewWidth;
  NH := NewHeight;
end;