Программирование Delphi Добработайте программу Работа с кнопками - 1, добавив в неё кнопки: 1) Caption – изменяет надпись на себе на любую другую; 2) Font.Size – меняет размер шрфита на кнопке. 3) Visible – выключает видимость ...
Программирование Delphi Добработайте программу Работа с кнопками - 1, добавив в неё кнопки:
1) Caption – изменяет надпись на себе на любую другую;
2) Font.Size – меняет размер шрфита на кнопке.
3) Visible – выключает видимость всех кнопок, и включает обратно.
Таким образом, прогрмма будет выглядеть слеующим образом:
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы