창돌이 wrote:

> 하루종일 이건 만 잡고 하루을 보냅니다. ㅜ.ㅜ

>

> 폼의 크기를 조절할때 폼안에 있는 이미지 컴포넌트도 같이 늘일 수 있는 방법이 없나여? (다른 컴포넌트는 괜찮구여 이미지만 늘입니다.

>

> 그리고 이미지 컴포넌트에 들어 있는 내용도 같이 늘이 수 없나여?

>

> 참고로 이미지 컴포넌트에 화일로 이미지를 불러 오지않고 직접 캔바스를 이용해 그려줍니다.

>

> 아무리 해도 안되는 군요.

>

> 답변 부탁드립니다. 꾸벅



WM_SIZE메시지를 받아서 트래핑한다고 하지요.'

lparam의 상위, 하위값으로

이미지의 크기를 조절해주면 되지요.

그리고 stretch라는 프로퍼티를 true를 주시면 되지요.





procedure wmsize(var message : tmessage); message WM_size;





procedure TForm1.wmsize(var message : tmessage);

var

h, w : integer;

begin

w := loword(message.LParam);

h := hiword(message.lparam);

image1.Width := w-5;

image1.Height := h-5;

end;