Вопрос по информатике:
Программирование Delphi Добработайте программу Работа с кнопками - 1, добавив в неё кнопки:
1) Caption – изменяет надпись на себе на любую другую;
2) Font.Size – меняет размер шрфита на кнопке.
3) Visible – выключает видимость всех кнопок, и включает обратно.
Таким образом, прогрмма будет выглядеть слеующим образом:
- 21.11.2016 10:02
- Информатика
- remove_red_eye 10983
- thumb_up 47
Ответы и объяснения 1
Procedure TForm1.btn4Click(Sender: TObject);
var
List:TStringList;
MyStr:String;begin
Randomize;
List :=TStringList.Create;
List.LoadFromFile('word.txt');
MyStr :=List[Random(List.Count)];
btn4.caption:=MyStr;List.Free;
end;
procedure TForm1.btn5Click(Sender: TObject);
begin
if btn1.Visible = True then begin
btn1.Visible:=False;
btn2.Visible:=False;
btn3.Visible:=False;
btn4.Visible:=False;
btn6.Visible:=False;
end
else begin
btn1.Visible:=True;
btn2.Visible:=True;
btn3.Visible:=True;
btn4.Visible:=True;
btn6.Visible:=True;
end;
end;
procedure TForm1.btn6Click(Sender: TObject);
var
a:integer;
begin
Randomize;
a:=Random(25);
btn6.Font.Size:=a;
end;
end.
- 22.11.2016 10:26
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.