델파이 폼 리사이즈 delphi Form Resize

resize저장용...

 

부모쪽 폼 사이즈가 바뀔때만 자식폼 사이즈도 변경해줄려고 만듬..

procedure aaa.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin

  if (TPanel(FSaveOwner).Height <> Self.Height) or (TPanel(FSaveOwner).Width <> Self.Width) then
    Resize := True
  else
    Resize := False;

end;

procedure aaa.FormResize(Sender: TObject);
begin
  Self.Height := TPanel(FSaveOwner).Height;
  Self.Width := TPanel(FSaveOwner).Width;
  
end;