헤헤 컴맹 입니다..

요렇게 해보세여...



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

SetBounds(Left,Top,Width Div 2,Height div 2);

// 폼을 반으로 줄이기..

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

SetBounds(Left,Top,Width * 2,Height * 2);

// 폼을 원래대로 하기...

end;



end.







재봉나라 wrote:

> 안녕하세요...

>

> form 크기가 width 100, height 100.

>

> 위 폼을 create될때 form크기를 width 50, height 100으로

>

> 할려고 합니다.

>

> 그래서 create에서 clientWidth와 clientHeight에 값을 줬고,

>

> 활성화 버튼을 다시 누르면 width 100, height 100으로 돌아오게 할려고 하는데

>

> 잘 안되네요..... 고수 님덜의 조언을 부탁 드립니다.

>

> "한마디로 하나의 폼을 반으로 줄였다가 원상태로 돌아가게 할려고 합니다."

>