Ошибка tlabel not found

29.01.2019, 18:43. Показов 5666. Ответов 8

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

Программа компилируется, однако сразу после этого вылетает ошибка: Вызван класс исключений: Class TLabel not found
Программа многоформенная, где конкретно ошибка я не понимаю, вот весь код.

Delphi 
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

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus, Unit2, Unit3, Unit4, Unit6, Unit7, Unit9;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.ShowModal;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.close;
end;
 
procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  Form3.ShowModal;
end;
 
procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  Form4.ShowModal;
end;
 
procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  Form6.ShowModal;
end;
 
procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  Form7.ShowModal;
end;
 
procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  Form9.ShowModal;
end;
 
 
 
end.
Delphi 
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

unit Unit2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.lfm}
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.close;
end;
 
end.
Delphi 
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

unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm3 }
 
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.lfm}
 
{ TForm3 }
 
procedure TForm3.Button1Click(Sender: TObject);
var k, m, answer: real;
begin
  k:=StrToFloat(Edit1.Text);
  m:=StrToFloat(Edit2.Text);
  answer:= m/k;
  if k<>0 then
     ShowMessage('Корень уравнения: ' + FloatToStr(answer))
  else
     ShowMessage('Уравнение имеет бесконечное множество корней');
end;
 
procedure TForm3.Button2Click(Sender: TObject);
begin
  Form3.close
end;
 
end.
Delphi 
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

unit Unit4;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit5;
 
type
 
  { TForm4 }
 
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.lfm}
 
{ TForm4 }
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  Form4.close;
end;
 
procedure TForm4.Button1Click(Sender: TObject);
var a, b, c, d, x1, x2: real;
    kod1, kod2, kod3: integer;
begin
     val(Edit1.Text,a,kod1);
     val(Edit2.Text,b,kod2);
     val(Edit3.Text,c,kod3);
     if (kod1 = 0) and (kod2 = 0) and (kod3 = 0) then
     begin
          a := StrToFloat(Edit1.Text);
          b := StrToFloat(Edit2.Text);
          c := StrToFloat(Edit3.Text);
          if a = 0 then Form5.Show
          else
          begin
              d := b*b - 4*a*c;
              if d<0 then ShowMessage('Дискриминант меньше 0. Корней нет.');
              if d=0 then
              begin
                  x1 := -(b / (2*a));
                  ShowMessage('Дискриминант равен 0. Корень уравнения: ' + FloatToStr(x1));
              end;
              if d>0 then
              begin
                  x1:=(-b+sqrt(d))/2/a;x2:=(-b-sqrt(d))/(2*a);
                  x1:=int(x1*100)/100;x2:=int(x2*100)/100;
                  ShowMessage ('Дискриминант больше 0. Корни уравнения: ' + FloatToStr(x1) + ' ' + FloatToStr(x2));
              end;
          end;
     end
     else
     ShowMessage('Должны быть введены числовые значения!');
end;
 
end.
Delphi 
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

unit Unit5;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit3;
 
type
 
  { TForm5 }
 
  TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.lfm}
 
{ TForm5 }
 
procedure TForm5.Button1Click(Sender: TObject);
begin
  Form3.Show;
  Form5.Close;
end;
 
procedure TForm5.Button2Click(Sender: TObject);
begin
  Form5.Close;
end;
 
end.

Delphi 
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

unit Unit6;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm6 }
 
  TForm6 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form6: TForm6;
 
implementation
 
{$R *.lfm}
 
{ TForm6 }
 
procedure TForm6.Button1Click(Sender: TObject);
begin
  Form6.close;
end;
 
end.

Delphi 
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

unit Unit7;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm7 }
 
  TForm7 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form7: TForm7;
 
implementation
 
{$R *.lfm}
 
{ TForm7 }
 
procedure TForm7.Button1Click(Sender: TObject);
begin
  Form7.close;
end;
 
end.
Delphi 
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

unit Unit9;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, Unit10;
 
type
 
  { TForm9 }
 
  TForm9 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject); // <-- нужно добавить
 
  private
 
  public
 
  end;
 
var
  Form9: TForm9;
 
implementation
 
{$R *.lfm}
 
{ TForm9 }
 
function sgn(x: double): double;
begin
  sgn := ord(x > 0) - ord(x < 0)
end;
 
function sqrt_3(x: double): double;
begin
  if x > 0
    then sqrt_3 := exp(ln(x) / 3)
    else if x < 0
      then sqrt_3 := -exp(ln(-x) / 3)
      else sqrt_3 := x
end;
 
function arccos(x: double): double;
begin
  if x = -1 then arccos := pi else arccos := 2 * arctan(sqrt((1 - x) / (1 + x)))
end;
 
function arch(x: double): double;
begin
  arch := ln(x + sqrt(x * x - 1))
end;
 
function arsh(x: double): double;
begin
  arsh := ln(x + sqrt(x * x + 1))
end;
 
function ch(x: double): double;
begin
  ch := (exp(x) + exp(-x)) / 2
end;
 
function sh(x: double): double;
begin
  sh := (exp(x) - exp(-x)) / 2
end;
 
procedure TForm9.Button1Click(Sender: TObject);
type complex = record re, im: double end;
var a, b, c, d, q, r, s, f, t: double;
    x: array [1..3] of complex;
    i: byte;
    sq: string;
    kof : integer;
begin
  for i := 1 to 3 do
  begin
    x[i].re := 0;
    x[i].im := 0
  end;
  d := StrToFloat(Edit1.Text);
  if d = 0
    then begin
      ShowMessage('Программа решает только кубические уравнения. Введите коэффициент при x^3.');
      Exit
    end;
  a := StrToFloat(Edit2.Text) / d;
  b := StrToFloat(Edit3.Text) / d;
  c := StrToFloat(Edit4.Text) / d;
  q := (a * a - 3 * b) / 9;
  r := (2 * a * a * a - 9 * a * b + 27 * c) / 54;
  s := q * q * q - r * r;
  if s > 0
    then begin
      f := arccos(r / sqrt(q * q * q)) / 3;
      t := - 2 * sqrt(q);
      x[1].re := t * cos(f) - a / 3;
      x[2].re := t * cos(f + 2 / 3 * pi) - a / 3;
      x[3].re := t * cos(f - 2 / 3 * pi) - a / 3
    end
    else if s = 0
      then begin
        x[2].re := sqrt_3(r) - a / 3;
        x[3].re := x[2].re;
        x[1].re := -2 * sqrt_3(r) - a / 3
      end
      else if q = 0
        then begin
          x[1].re := -sqrt_3(c - a * a * a / 27) - a / 3;
          x[2].re := (a + x[1].re) / -2;
          x[3].re := x[2].re;
          x[2].im := sqrt(abs((a - 3 * x[1].re) * (a + x[1].re) - 4 * b)) / 2;
          x[3].im := -x[2].im
        end
        else if q > 0
          then begin
            f := arch(abs(r) / sqrt(q * q * q)) / 3;
            x[1].re := -2 * sgn(r) * sqrt(q) * ch(f) - a / 3;
            x[2].re := sgn(r) * sqrt(q) * ch(f) - a / 3;
            x[3].re := x[2].re;
            x[2].im := sqrt(3 * q) * sh(f);
            x[3].im := -x[2].im
          end
          else begin
            f := arsh(abs(r) / sqrt(abs(q * q * q))) / 3;
            x[1].re := -2 * sgn(r) * sqrt(abs(q)) * sh(f) - a / 3;
            x[2].re := sgn(r) * sqrt(abs(q)) * sh(f) - a / 3;
            x[3].re := x[2].re;
            x[2].im := sqrt(3 * abs(q)) * ch(f);
            x[3].im := -x[2].im
          end;
  Form9.Memo1.Lines.Clear;
  Memo1.Lines.Add('Корни уравнения:');
  for i := 1 to 3 do
    begin
      sq := 'x' + IntToStr(i) + ' = ' + FloatToStr(x[i].re);
      if x[i].im <> 0 then begin
        kof := kof + 1;
        sq := sq + ' + i * (' + FloatToStr(x[i].im) + ')';
      end;
      Memo1.Lines.Add(sq);
      if kof = 1 then
         Memo1.lines.Add('Уравнение имеет только один вещественный корень');
      if kof = 1 then
         Memo1.lines.Add('Уравнение имеет два вещественных корня');
      if kof <> 0 then
         Memo1.lines.Add('Где i - мнимая единица');
    end
end;
 
procedure TForm9.Button2Click(Sender: TObject);
begin
  Form9.Close;
end;
 
procedure TForm9.Button3Click(Sender: TObject);
begin
  Form10.ShowModal;
end;
 
procedure TForm9.Edit1Change(Sender: TObject);
begin
 
end;
 
procedure TForm9.FormCreate(Sender: TObject);
begin
 
end;
 
end.

Заранее спасибо.



0



Источник


Форум программистов Vingrad

Модераторы: bsa

Поиск:

Ответ в темуСоздание новой темы
Создание опроса
> Tlabel not found 

:(

   

Опции темы

Свят86
Дата 23.6.2009, 20:04 (ссылка)
| (голосов:1)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

всем приветик!!!  ни с того ни с сего стало выдавать ошибку при запуске приложения Class Eclass not found with message  ‘Class Tlabel not found’    подскажите плиз что делать???

PM MAIL   Вверх
jonie
Дата 23.6.2009, 20:35 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 6
Всего: 118

под отладкой чего хотите сказать — не встает на проблемное место ? (как я понимаю это вообще билдер)

———————

Что-то не поняли? -> Напейтесь до зеленых человечков… эта сверхцивилизация Вам поможет…
PM MAIL Jabber   Вверх
Свят86
Дата 23.6.2009, 21:31 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

встает в forms.hpp тоесть в заголовочном стандартном файле!!!

PM MAIL   Вверх
Свят86
Дата 23.6.2009, 22:17 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

где конкретно сказать не могу, так как все это на работе!!! но там ничего не менялось и лабелы страндартные и глючить то начало ни с того ни с сего!!! :(((

PM MAIL   Вверх
jonie
Дата 24.6.2009, 07:18 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 6
Всего: 118

Смотрите callStack после того как встанет «до вашей» программы вверх по стеку идите.

———————

Что-то не поняли? -> Напейтесь до зеленых человечков… эта сверхцивилизация Вам поможет…
PM MAIL Jabber   Вверх
Свят86
Дата 24.6.2009, 08:26 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

так она встает уже после того как все юниты откомпилятся!!! и компилятся они без ошибок все путем!!!

PM MAIL   Вверх
ksili
Дата 24.6.2009, 09:12 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: нет
Всего: 17

Свят86, то что программа откомпилилась только означает, что в ней нет синтаксических ошибок, но это не значит, что в ней нет логических ошибок

———————

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
Свят86
Дата 24.6.2009, 10:00 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

там все работало нормально, просто на новую форму, которая уже была добавил три лабела!!! и появилась такая вот фигня!!! прога простенькая!!! берет из эдитов значения обрабатывает их и выводит в другие эдиты!!! а лабелы просто подписи!!! все до идиотизма просто!!! а эта фигня ну вобще непойми из-за чего… :(((

PM MAIL   Вверх
azesmcar
Дата 24.6.2009, 10:11 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

uploading…
****

Профиль
Группа: Участник Клуба
Сообщений: 6291
Регистрация: 12.11.2004
Где: Армения

Репутация: 52
Всего: 211

Свят86

Попробуй сделать полный ребилд проекта.
PM   Вверх
Свят86
Дата 24.6.2009, 10:20 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

пробовал не помогает!!! у меня вобще подозрения что где-то чет-то в билдере не так!!! forms.hpp сранвнил с тем что было при инсталяции там все идентично!!! вобщем лабуда какая-то…

PM MAIL   Вверх
ksili
Дата 24.6.2009, 10:30 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: нет
Всего: 17

может у тебя где-нибудь выполняется перебор всех компонентов?

———————

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
Свят86
Дата 24.6.2009, 10:43 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

не… все реально до безобразия просто!!! есть маин меню, эдиты, стринггрид и лабелы ну и баттон конечно и все!!! три формы однотипных все до безобразия просто!!! а с чего ошибка фиг его знает… 

PM MAIL   Вверх
xvr
Дата 24.6.2009, 11:04 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Эксперт
****

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 35
Всего: 223

Убери labels с новой формы (все), потом добавь их обратно
PM MAIL   Вверх
azesmcar
Дата 24.6.2009, 11:08 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

uploading…
****

Профиль
Группа: Участник Клуба
Сообщений: 6291
Регистрация: 12.11.2004
Где: Армения

Репутация: 52
Всего: 211

RegisterClass(TLabel) может попробовать smile 

PM   Вверх
Свят86
Дата 24.6.2009, 12:24 (ссылка)
| (нет голосов)
Загрузка ... Загрузка …



Быстрая цитата

Цитата

Шустрый
*

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

убивал лабелы и форму убивал без вариантов… причем после убития закрывал все и перезапускал билдера!!! нифига!!! с регистрацией попробую… ее в первую форму пихать или в заголовочные файлы???

PM MAIL   Вверх



















Ответ в темуСоздание новой темы
Создание опроса
Правила форума «C/C++: Для новичков»
JackYF
bsa

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • FAQ раздела лежит здесь!

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, JackYF, bsa.

 

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C/C++: Для новичков | Следующая тема »
Источник

Hi Experts,

I have a legacy program form which contains only a few components, a button a label and a textfield. These have been changed from the standard Borland components to Developer Express components, so instead of using TLabel we are using TcxLabel etc. There are no standard ‘T’ components left on the form. There are no references to them in the source, header or form files.

When this form is loaded at runtime, I get the following error:

«Project program.exe raised exception class EClassNotFound with message ‘Class TLabel not found’.»

If I compile the form explicitly and re-run the program, the error disappears. However, next time I reboot my system, open Borland Developer Studio and compile/run the program, the error returns.

Does anyone know whats going on here? I don’t know why the error comes back, but I suspect it’s something to do with BDS auto-managing the form file and loading something it shouldn’t.

I should note, a colleague also works on this project but never sees this error. We are using exactly the same source/header/form files. I don’t know what is different between our two systems that means his version of the program does not see this error and mine does.

Источник

So I am trying to apply a simple style to a labelframe widget with the following code:

import sys
if sys.version_info[0] == 2:  # Just checking your Python version to import Tkinter properly.
    import Tkinter as tk
    import ttk as ttk
else:
    import tkinter as tk
    from tkinter.ttk import ttk as ttk

root = tk.Tk()
bls = ttk.Style()
bls.configure('Black.TLabelFrame', background="#222222")

dayframe = ttk.Labelframe(root, style='Black.TLabelFrame', height=200, width=150, relief=tk.SUNKEN, 
    text="Hello")
dayframe.grid(row=1, column=1, padx=5)
root.mainloop()

But when I run this code I get the error message:

TclError: Layout Black.TLabelFrame not found

I don’t understand what I am doing wrong…

Источник



Only Visible to You and DevExpress Support


Visible to All Users

Modify
support ticket and change its visibility



Urgent



Duplicate

We have closed this ticket because another page addresses its subject:

Answers approved by DevExpress Support

Disclaimer: The information provided on DevExpress.com and its affiliated web properties is provided «as is» without warranty of any kind.
Developer Express Inc disclaims all warranties, either express or implied, including the warranties of merchantability and fitness for a particular purpose.
Please refer to the DevExpress.com Website Terms of Use for more information.

Recently viewed tickets

You have yet to view any tickets.

Your search criteria do not match any tickets.

A server error occurred while processing your request. Please try again at a later time.

Источник

We have been developing a largish  (30 forms) App with D2 C/S  2.01 and SQL
Server
under Win 95 OS/2.

It has been going along quite well until today.
We started getting the above message «CLASS Tlabel not found»  on some
forms

We have rebooted and rebuilt the Component Library. — all the offending
forms (at least 4)
have STDCTRLS in their uses clause and even included STDCTRLS in the app.
(we do have quite a few customised components in the library — which have
not been under
question until now)

The exe is getting rather large (3mb before optimisation) and we are
creating most forms
as required — Do we need to change the Heap Size ? (and how do you do that
in D2)
Increasing the stack size had no effect.

Any Ideas would be appreciated

I am about to re-install D2 under NT 4 and see if the same error occurs

TIA

Nigel

Источник

Понравилась статья? Поделить с друзьями:
  • Ошибка themida при запуске
  • Ошибка tire pressure monitor fault
  • Ошибка themida file corrupted
  • Ошибка the system cannot find the path specified
  • Ошибка the system cannot boot