VPF::Record, object or class type required - Форум программистов

malayka

Дата 7.5.2010, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

есл ошибся разделом плз не ругайте. хотя программа у меня бд..
суть вопроса:
на код вызова второстепенной формы

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 showmodal.form3;
end;

ругается ошибкой:
[DCC Error] Unit1.pas(32): E2018 Record, object or class type required
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit1.pas'

никогда раньше на этом не застрявал, а теперь не отделаюсь никак(((

проект:

Код


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

основ форма:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmodal.form3;
end;

end.

и фторостепенная есл понадобится:

Код


unit Unit3;

interface

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

type
  TForm3 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

end.

прошу подскажите где я не так сделал, хотя все как обчно и раньше все работало(

Это сообщение отредактировал(а) malayka - 7.5.2010, 23:20

Akella

Дата 7.5.2010, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(malayka @ 7.5.2010, 23:19

)

showmodal.form3;

Код


form3 := TForm3.create(self);
form3.showmodal;
FreeAndNil(form3);

Цитата(malayka @ 7.5.2010, 23:19

)

есл ошибся разделом плз не ругайте. хотя программа у меня бд..

и что с того? у тебя что, вопрос связан с работой с базами в дельфи???

Цитата(malayka @ 7.5.2010, 23:19

)

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

убери из автосоздаваемых form3

malayka

Дата 7.5.2010, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Оо вот я олень! showmodal после формы писать надо ведь.. на скоростях все перепутал))

Это сообщение отредактировал(а) malayka - 8.5.2010, 00:11

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »