Создание модуля

[Deight]

Как вообще создать правельно модуль в котором будет новый класс на основе TForm, вот допустим код модуля:

unit D8Form;

interface

uses
Forms, ExtCtrls;

Type
TD8Form = class;//Это я не знаю зачем но без этого всёравно не работает

TD8Form = class(TForm)
private
protected
public
published
end;

TD8FormClass = class of TD8Form;//Это я не знаю зачем но без этого всёравно не работает

implementation

end.

А так я в коде программы пишу

procedure TForm1.Button1Click(Sender: TObject);
var F:TD8Form;
begin
F:=TD8Form.Create(Self);
end;

Модуль соответственно тоже потключаю, компилица всё норм, а при нажатии на кнопку - ошибка:"Project Project1.exe raised exception class EResNotFound with message 'Resource TD8Form not found'. Process stopped. Use Step or Run to continue."
Что не так?

[Манжосов Денис :)]

Я с такой ошибкой не встречался, но если попробовать перевести:

Ошибка EResNotFound с сообщением "Ресурс TD8Form не найден"

Я вообще не понял вашей задумки

unit Module1;

interface

uses
 Forms, ExtCtrls;

Type

  TForm1 = class(TForm)
end;
var
  Form1: TForm1;
implementation uses ModuleTD8Form;

end.

unit ModuleTD8Form;

interface

uses
 Forms, ExtCtrls;

Type

  TD8Form = class(TForm)
end;
var
  D8Form: TD8Form;
implementation uses Module1;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TD8Form, D8Form);
  D8Form.Show;
end;

Вот так и можно создать много окон...
А предварительно в меню Project\Options сделайте D8Form не автоматически создаваемой формой.

[Deight]

Манжосов Денис , мне не много окон нужно создать а Класс типа TForm только с новыми событиями и с остальной ерундой, а то что вы написали я вообще не понял, если вас не затруднит обясните.

[Манжосов Денис :)]

type
TD8Form = class(TForm1)
X1: byte;
S: string;
X2: integer;
X3: real;
procedure DrawEllipse;
procedure ShowMyMessage;
procedure TD8Form.DrawEllipse;
begin
  Canvas.Ellipse(0,0,100,100);
end;
procedure TD8Form.ShowMyMessage;
begin
  ShowMessage('Hello World!');
end;

Также надо объявить глобальную переменную D8Form: TD8Form;
Это примеры процедур и переменных, чтобы обратиться к этой форме нужно написать следующий код:

D8Form.ShowMyMessage
// Или
D8Form.X1 := 100;
//
D8Form.BorderStyle := bsSingle; // Стандартно

Как же создать и показать новую форму к сожалению не знаю...

[mutabor]

Чтобы увидеть как нужно создавать объект-форму загляните в файл dpr.
Также советую почитать литературу по ООП в Дельфи и посмотреть исходники стандартных компонентов Дельфи. Думаю после этого все само собой прояснится.

p.s. А модуль это не важно, можете все в одном объявить и будет работать, а можно каждый класс в отдельном, это на ваше усмотрение.

[Deight]

Mutabor, будь человеком у меня уже мозг болит, в гугле про ооп нашел море статей вот читаю и ни чего того что мне нужно не могу найти, мне всего лиш нужно создать класс в модуле чтоб он нормально работал.

[NieL]

Читай здесь. http://www.delphimaster.ru/articles/...orm/index.html

[Deight]

В этом примере возникли проблемы с RegisterCustomModule и модулями DesignIntf, DesignEditors что делать в справке о RegisterCustomModule вообще ничего нет, у меня Delphi 7. DesignIntf, DesignEditors пишет что нет DesignIntf.dcu, DesignEditors.dcu;

[alexBlack]

2Deight
У TForm есть еще констрактор, который не читает ресурсов.
Бесполезный, но рабочий пример:

program Project14;
{$APPTYPE CONSOLE}

uses  Forms;

type
   TD8Form = class(TForm)
   end;

var F:TD8Form;
begin
   F := TD8Form.CreateNew(nil);
   F.ShowModal;

   readln;
end.

[mutabor]

Вот, почитай http://rsdn.ru/article/Delphi/Delphi_7_03.xml