Урок — Развернуть программу на весь экран

[Sup]

вставляем код :

if(c("checkbox1")->checked) {
c("Form1")->w = 200;
c("Form1")->h = 200;здесь размер после изменения//
}else{
c("Form1")->w = 500;
c("Form1")->h = 400;//здесь размер до изменения//
} 2 спрсоб На кнопке заголовок- Развернуть в кнопке код: if ( c('button1')->caption == "Развернуть" ) {
c("Form1")->windowState = wsMaximized;
c('button1')->caption = "Свернуть";
} else {
c("Form1")->windowState = wsNormal;
c('button1')->caption = "Развернуть";
}

Ставим + , кто искал код