Delphi dasturlash muhitida ilova oynasining eni 600 dan va bo‘yi 500 dan oshsa, ogohlantiruvchi yozuv chiqadigan dastur

Ответ

Bitta button o‟rnatib, uning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
begin
If (Form1.Width<600) or (Form1.Height<500) then begin
Form1.Width:=Form1.Width+16; Form1.Height:=Form1.Height+9; End else
ShowMessage('Oyna boshqa kengaymaydi');
end;

Другие задачи с этого варианта

1 2 3

Книга: Informatika fanidan imtixon savollariga javoblar 10 sinf
Билет/вопрос: №3

Абитуриентам

ЦТ, Беларусь

Сборники тестов, Узбекистан
DTM варианты
Онлайн ДТМ тестирование

Решебники

Физика
Математика

Онлайн тестирование

Английский язык
Русский язык
Математика
Биология
География
История

База знаний по предметам

Физика
Математика
Информатика
Литература
Английский язык
Русский язык
Химия
История
География
Биология

Все разделы