Программирование Delphi Добработайте программу Работа с кнопками - 1, добавив в неё...

Question

Программирование Delphi Добработайте программу Работа с кнопками - 1, добавив в неё кнопки:

1) Caption – изменяет надпись на себе на любую другую;

2) Font.Size – меняет размер шрфита на кнопке.

3) Visible – выключает видимость всех кнопок, и включает обратно.

Таким образом, прогрмма будет выглядеть слеующим образом:

---

Comments

На счет первого пункта, слово должно существовать или может быть рандомный набор букв "аыаыа"

---

Или можно подгружать готовые слова из текстового файла?

---

Без понятия, что такое Lazarus. Я могу тебе сделать программу на делфи эту и все исходники прикрепить

Answer 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.