안녕하세요.
처음 폼을 불러올때 , 특수문자를 모아놓은 판넬은 안나오게 하고,
판넬 높이 만큼 폼 사이즈도 작아져 있게 하구요.
체크버튼을 클릭했을때, 판넬이 나오면서 그만큼 폼사이즈가 커지게
하려고 합니다.
문자메세지 보내는 핸드폰 화면에서 처럼요.
판넬의 visible 속성을 true,false 하니까 폼이 늘어나면서 스크롤바가 생기구요. statusbar가 있으면, 그 공간은 판넬사이즈만큼 그대로 비어 있어서요.
어떻게 해야 하는지요. 해결방법좀 알려주세요.
감사합니다.
폼의 autoscroll은 Flase
하구 폼의 ahtoSize를 true로 하면 자동으로 될거예요..
만약 약간 무식한 방법으로 효과를 줄려면..
체크하는 이벤트에.
begin
if 체크여부 then
while 폼높이 < 늘어날값 do
폼높이 := 폼높이 + 5;
else
while 폼높이 >줄어들값 do
폼높이 := 폼높이 - 5;
Application.ProcessMessages;
end;