Кнопки в VCL

@Михаил Казущик · Регистрация: 23.02.2015

Студворк — интернет-сервис помощи студентам

Дорогие программисты, пожалуйста помогите!
Сразу прошу прощения, что может быть создал тему не в том разделе. У меня небольшая проблема, вот программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
uses vcl;
var names: array [1..15] of string;
    phrases: array [1..15] of string;
    roles: array [1..15] of string;
    name: string;
    i,k: integer;
  Form1: Form;
  panel1: panel;
  panel2: panel;
  panel3: panel;
  panel4: panel;
  panel5: panel;
  panel6: panel;
  panel7: panel;
  panel8: panel;
  button1: button;
  Button2: Button;
  Button3: Button;
  Button4: Button;
  Button5: Button;
  Button6: Button;
  Button7: Button;
  Button8: Button;
  Button9: Button;
  Button10: Button;
  textbox1: textbox;
  textlabel1: textlabel;
label 1;
  
procedure Button1OnClick;
begin
  button1.Destroy;
  button2.Destroy;
  Button3.Destroy;
  button4.Destroy;
  Button5.Destroy;
  button6.Destroy;
  TextLabel1:= TextLabel.Create(Form1,16,64,353,249);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Button7:= Button.Create(Form1,24,10,329,33);
  Button7.InitControl(True,True,alNone,crDefault,0,'Â ìåíþ èãðû','');
  Button8:= Button.Create(Form1,24,360,329,33);
  Button8.InitControl(True,True,alNone,crDefault,0,'Èãðàòü!','');
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
end;
 
procedure Button8OnClick;
begin
  Panel1:= Panel.Create(Form1,5,80,375,33);
  Panel1.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel2:= Panel.Create(Form1,5,120,375,33);
  Panel2.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel3:= Panel.Create(Form1,5,160,375,33);
  Panel3.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel4:= Panel.Create(Form1,5,200,375,33);
  Panel4.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel5:= Panel.Create(Form1,5,240,375,33);
  Panel5.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel6:= Panel.Create(Form1,5,280,375,33);
  Panel6.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel7:= Panel.Create(Form1,5,320,375,33);
  Panel7.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  Panel8:= Panel.Create(Form1,5,360,375,33);
  Panel8.InitControl(True,True,alNone,crDefault,clBtnFace,'','');
  TextBox1:= TextBox.Create(Form1,8,8,265,65);
  TextBox1.InitControl(True,True,alNone,crDefault,clWindow,'Ââåäèòå âàøå ñîîáùåíèå...','');
  TextBox1.ScrollBars:= ssNone;
  Button9:= Button.Create(Form1,296,48,75,25);
  Button9.InitControl(True,True,alNone,crDefault,0,'Êíîïêà2','');
  Button10:= Button.Create(Form1,296,8,75,25);
  Button10.InitControl(True,True,alNone,crDefault,0,'Êíîïêà1','');
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
end;
 
procedure TextBox1OnClick;
begin
 
end;
 
procedure Edit1OnClick;
begin
 
end;
 
procedure Form1OnCreate;
begin
 
end;
procedure InitControls;
begin
  Form1:= Form.Create(0,0,400,450);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Èãðà ìàôèÿ.','');
  Button1:= Button.Create(Form1,24,40,329,33);
  Button1.InitControl(True,True,alNone,crDefault,0,'Èãðàòü','');
  Button2:= Button.Create(Form1,24,80,329,33);
  Button2.InitControl(True,True,alNone,crDefault,0,'Ìîé ïðîôèëü','');
  Button3:= Button.Create(Form1,24,120,329,33);
  Button3.InitControl(True,True,alNone,crDefault,0,'Ïðàâèëà èãðû','');
  Button4:= Button.Create(Form1,24,160,329,33);
  Button4.InitControl(True,True,alNone,crDefault,0,'Íàñòðîéêè','');
  Button5:= Button.Create(Form1,24,200,329,33);
  Button5.InitControl(True,True,alNone,crDefault,0,'Èíôîðìàöèÿ','');
  Button6:= Button.Create(Form1,24,240,329,33);
  Button6.InitControl(True,True,alNone,crDefault,0,'Êîíåö èãðû','');
  Form1.OnCreate:=Form1OnCreate;
  Button1.OnClick:=Button1OnClick;
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
  names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:='';
  names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:='';names[1]:='';  names[1]:='';
  names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:=''; names[1]:='';
  for i:=1 to k do
end;
 
begin
     InitControls;
 
end.

Проблема в кнопках. Если я перехожу по кнопке "Играть" в самом начале программы, то переход есть. Далее, в окошке, есть еще одна кнопка "Играть!", но перехода по ней нет!!!! То есть, я запустил программу, перехожу по первой кнопке - все норм, высвечивает новое окнов, в этом окне еще одна кнопка "Играть!" по ней перехода нет!! Почему?
В самом низу программы есть строчка "Button1.OnClick:=Button1OnClick;" то есть, есть некое указание, при нажатии на определенную кнопку сделать ту или иную процедуру. Где это указать вообще?

Добавлено через 47 минут
Что, никто не знает что делать?

@Cyborg Drone · 28.02.2015, 22:29

Дельфи? FPC+Lazarus? Куда перенести Вашу тему?

В инспекторе объектов для этой нерабочей кнопки назначьте нужную процедуру на событие onClick. Ещё вариант: кнопка на другой форме.

Не по теме:

Сообщение от Михаил Казущик

Что, никто не знает что делать?

Отчего же? Уверяю Вас, большинство знают. Может, просто лень отвечать или неинтересно разбираться с Вашим кодом, тем более, проект по какой-то причине Вами не выложен... Больше 10 МБ?

@Михаил Казущик · 01.03.2015, 11:24 **[ТС]**

Наверное вы не поняли то, что я хотел спросить. Проблема не в том, что я не знаю как описать процедуру "Что сделать по нажатию кнопки". Проблема в том, что сама программа не воспринимает! Если вам не трудно, вставьте мою программу в компилятор и посмотрите в чем дело. Когда я запускаю программу, мне высвечивает меню. Я могу запрограммировать любую кливишу. Но. Я нижмаю на кнопку, все высвечивает уже другое окно, не первое, и кнопки которые там не работают, а где описать их работу не знаю.
-----------
Если можно, объясните, как пользоваться "OnClick" в инспекторе, я не понимаю если честно...

Добавлено через 16 минут
Pascal ABC - тема находится в нужной категории

Добавлено через 35 секунд
Какой проект? Это просто программа в паскале и все.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Михаил Казущик 0 / 0 / 0 Регистрация: 23.02.2015 Сообщений: 8
	01.03.2015, 11:24 [ТС]
	Наверное вы не поняли то, что я хотел спросить. Проблема не в том, что я не знаю как описать процедуру "Что сделать по нажатию кнопки". Проблема в том, что сама программа не воспринимает! Если вам не трудно, вставьте мою программу в компилятор и посмотрите в чем дело. Когда я запускаю программу, мне высвечивает меню. Я могу запрограммировать любую кливишу. Но. Я нижмаю на кнопку, все высвечивает уже другое окно, не первое, и кнопки которые там не работают, а где описать их работу не знаю. ----------- Если можно, объясните, как пользоваться "OnClick" в инспекторе, я не понимаю если честно... Добавлено через 16 минут Pascal ABC - тема находится в нужной категории Добавлено через 35 секунд Какой проект? Это просто программа в паскале и все. 0