| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка компилятора (!?) [D7, XP]

Страницы:   < 1 2 >

Savek ©   (2008-08-29 16:49:00) 

Есть дочерняя форма, вот код модуля

unit UnitActItems;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls;

type
 TfrmActItems = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   ePriem: TEdit;
   eNakl: TEdit;
   eDate: TEdit;
   ePost: TEdit;
   eSumma: TEdit;
   Bevel1: TBevel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   cbPok: TComboBox;
   Label6: TLabel;
   rgField: TRadioGroup;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 frmActItems: TfrmActItems;

implementation

{$R *.dfm}

end.

вызов из основной формы:

procedure TBaseForm.PrintActExecute(Sender: TObject);
 var s : currency;
 cdsHelp : TClientDataSet;
 PostP,NameP : string;
 IdP : integer;
begin
if not Assigned(frmActItems) then frmActItems:=TfrmActItems.Create(self);

case LastActive of
  5: begin
...

Вываливается ошибка в 1-ой строке:
"Project Knopka.exe raised exception EClassNotFound with message ' Class TRadioGroup  not found"

Куда копать?
ЗЫ Если из дочерней формы удалить rgField, все работает без ошибок. Если опять добавить какой либо компонент, вываливается ошибка ' Class TXXXXXX  not found" ????

---

ZiZi   (2008-08-29 17:07:00) [21]

Перепеши имя объекта RadioGroup1 на rgField

---

Anatoly Podgoretsky   (2008-08-29 17:06:00) [22]

А ты    Label6: TLabel; удали

---

Savek   (2008-08-29 17:04:00) [23]

вот dfm

object frmActItems: TfrmActItems
 Left = 279
 Top = 158
 Width = 404
 Height = 283
 Caption = 'Параметры акта приемки'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Bevel1: TBevel
   Left = 8
   Top = 8
   Width = 377
   Height = 201
 end
 object Label1: TLabel
   Left = 24
   Top = 19
   Width = 111
   Height = 13
   Caption = 'Дата приемки товара'
 end
 object Label2: TLabel
   Left = 24
   Top = 43
   Width = 91
   Height = 13
   Caption = 'Номер накладной'
 end
 object Label3: TLabel
   Left = 24
   Top = 67
   Width = 83
   Height = 13
   Caption = 'Дата накладной'
 end
 object Label4: TLabel
   Left = 24
   Top = 91
   Width = 115
   Height = 13
   Caption = 'Название поставщика'
 end
 object Label5: TLabel
   Left = 24
   Top = 115
   Width = 74
   Height = 13
   Caption = 'Сумма по акту'
 end
 object Label6: TLabel
   Left = 24
   Top = 139
   Width = 60
   Height = 13
   Caption = 'Покупатель'
 end
 object ePriem: TEdit
   Left = 176
   Top = 16
   Width = 201
   Height = 21
   TabOrder = 0
   Text = 'ePriem'
 end
 object eNakl: TEdit
   Left = 176
   Top = 40
   Width = 201
   Height = 21
   TabOrder = 1
   Text = 'eNakl'
 end
 object eDate: TEdit
   Left = 176
   Top = 64
   Width = 201
   Height = 21
   TabOrder = 2
   Text = 'eDate'
 end
 object ePost: TEdit
   Left = 176
   Top = 88
   Width = 201
   Height = 21
   TabOrder = 3
   Text = 'ePost'
 end
 object eSumma: TEdit
   Left = 176
   Top = 112
   Width = 201
   Height = 21
   Enabled = False
   TabOrder = 4
   Text = 'eSumma'
 end
 object BitBtn1: TBitBtn
   Left = 112
   Top = 216
   Width = 75
   Height = 25
   Caption = 'Печать'
   TabOrder = 5
   Kind = bkOK
 end
 object BitBtn2: TBitBtn
   Left = 216
   Top = 216
   Width = 75
   Height = 25
   Caption = 'Отмена'
   TabOrder = 6
   Kind = bkCancel
 end
 object cbPok: TComboBox
   Left = 176
   Top = 136
   Width = 201
   Height = 22
   Style = csOwnerDrawFixed
   ItemHeight = 16
   ItemIndex = 0
   TabOrder = 7
   Text = 'Покупатель 1'
   Items.Strings = (
     'Покупатель 1'
     'Покупатель 2')
 end
 object RadioGroup1: TRadioGroup
   Left = 24
   Top = 168
   Width = 345
   Height = 41
   Caption = 'RadioGroup1'
   TabOrder = 8
 end
end

---

ZiZi   (2008-08-29 17:03:00) [24]

> текст dfm в студию

Действительно. Чёто-как-то-так...

---

Savek   (2008-08-29 17:01:00) [25]

нет. Кидал на форму как обычно.

---

Игорь Шевченко   (2008-08-29 17:01:00) [26]

текст dfm в студию

---

ZiZi   (2008-08-29 16:58:00) [27]

rgField Видно прописывал ручками ... Да?

---

Страницы:   < 1 2 >

Наверх