VLC, форма. Некорректное отображение формы.

@chloroform · Регистрация: 09.12.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
uses vcl;
 
//$VCLDESIGN+
var
  Form1,ModalForm: Form;
  pgc:pagecontrol;
  b1,bCilindr,bPiramida,bKonus,bShar:button;
  lShar1,lShar2,lShar3,lShar4,lShar22,lShar33,lShar44,lElse:textlabel;
  lCilindr1,lCilindr2,lCilindr3,lCilindr4,lCilindr33,lCilindr44:textlabel;
  eShar,eCilindr1,eCilindr2:edit;
  code:integer;
  v,d,h:real;
  stroka,stroka2:string;
//$VCLDESIGN-
 
procedure elseinput;
begin
     ModalForm.ShowModal;
end;
 
procedure Form1OnCreate;
begin
 
end;
 
procedure bSharOnClick;
begin
     stroka:=eShar.text;
     val(stroka,d,code);
     if code<>0 then elseinput;
     v:=(3.14159*d*d*d)/6;
     Str(v:8:2,stroka);
     lShar22:=TextLabel.Create(pgc[1],170,80,stroka);
     d:=v/2;
     Str(d:8:2,stroka);
     lShar33:=TextLabel.Create(pgc[1],170,100,stroka);
     d:=v/4;
     Str(d:8:2,stroka);
     lShar44:=TextLabel.Create(pgc[1],170,120,stroka);
end;
 
procedure bCilindrOnClick;
begin
     stroka:=eCilindr1.text;
     val(stroka,d,code);
     if code<>0 then elseinput;
     stroka2:=eCilindr2.text;
     val(stroka2,h,code);
     if code<>0 then elseinput;
     v:=(3.14159*d*d*h)/4;
     Str(v:8:2,stroka);
     lCilindr33:=TextLabel.Create(pgc[2],170,80,stroka);
     d:=v/2;
     Str(d:8:2,stroka);
     lCilindr44:=TextLabel.Create(pgc[2],170,100,stroka);
end;
 
procedure bPiramidaOnClick;
begin
 
end;
 
procedure bKonusOnClick;
begin
 
end;
 
procedure b1OnClick;
begin
      Halt;
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,410,400);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Расчёт объёма','');
  Form1.OnCreate:=Form1OnCreate;
  Form1.Position:= poScreenCenter;
  Form1.OnCreate;
  Form1.Show;
  ModalForm:=Form.Create('Ошибка ввода!');
  ModalForm.setSize(250,70);
  lElse:=TextLabel.create(ModalForm,20,25,'ВВЕДИТЕ ЧИСЛОВОЕ ЗНАЧЕНИЕ!');
  pgc:=pagecontrol.create(0,0,400,340,'Шар');
  pgc.Add('Цилиндр');
  pgc.Add('Пирамида');
  pgc.Add('Конус');
  b1:=button.create(320,345,80,25,'Выход');
  b1.OnClick:=b1OnClick;
      { -- начало расчёта шара -- }
  bShar:=button.create(pgc[1],310,285,80,25,'Расчёт');
  bShar.OnClick:=bSharOnClick;
  lShar1:=TextLabel.Create(pgc[1],5,20,'Введите диаметр сферы:');
  eShar:=Edit.Create(pgc[1],170,20);
  lShar2:=TextLabel.Create(pgc[1],5,80,'Объём сферы:');
  lShar3:=TextLabel.Create(pgc[1],5,100,'1/2 объёма:');
  lShar4:=TextLabel.Create(pgc[1],5,120,'1/4 объёма:');
       { -- конец расчёта шара -- }
       { -- начало расчёта цилиндра -- }
  bCilindr:=button.create(pgc[2],310,285,80,25,'Расчёт');
  bCilindr.OnClick:=bCilindrOnClick;
  lCilindr1:=TextLabel.Create(pgc[2],5,20,'Введите диаметр цилиндра:');
  eCilindr1:=Edit.Create(pgc[2],170,20);
  lCilindr2:=TextLabel.Create(pgc[2],5,40,'Введите высоту цилиндра:');
  eCilindr2:=Edit.Create(pgc[2],170,40);
  lCilindr3:=TextLabel.Create(pgc[2],5,80,'Объём цилиндра:');
  lCilindr4:=TextLabel.Create(pgc[2],5,100,'1/2 объёма:');
        { -- конец расчёта цилиндра -- }
  bPiramida:=button.create(pgc[3],310,285,80,25,'Расчёт');
  bPiramida.OnClick:=bPiramidaOnClick;
  bKonus:=button.create(pgc[4],310,285,80,25,'Расчёт');
  bKonus.OnClick:=bKonusOnClick;
 
end;
 
begin
  InitControls;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .