Использование подключаемых модулей

[Ольг]

При вызове процедуры, описаной в подключаемом модуле выдаёца ошибка "[Error] Unit1.pas(28): This form of method call only allowed in methods of derived types"

Вызывающая процедура:

procedure TForm1.Button1Click(Sender: TObject);
begin
Figur.TPoint.Init (48,45,'red');
end;

Проект в прикреплённом файле

Вру. Вызываемая процедура:

Procedure TPoint.INIT(initX,InitY:integer; initCol:word);
begin
 NewX(initX);
 NewY(initY);
 NewCol(initCol);
end;

[puporev]

Не понял что делает Ваша пароцедура, но напишите так.

var
  Form1: TForm1;

implementation
 uses Figur;//Ваш модуль
 var t:TPoint;//создадим объект
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
t.Init (10,10,10)//вызовем метод
end;

[Ольг]

Инициирует последующие процедуры

Procedure TPoint.INIT(initX,InitY:integer; initCol:word);
begin
NewX(initX); //присваиваем переменной значение при помощи процедуры NewX, NewY и NewCol
NewY(initY);
NewCol(initCol);
end; 

procedure Tpoint.NewX(NX:integer);
begin
 x:=NX;
end;

procedure Tpoint.NewY(NY:integer);
begin
 y:=NY;
end;

procedure Tpoint.NewCol(NC:word);
begin
 Col:=NC;
end;


эта подготовка нужна для вызова последующий процедур, к примеру

procedure Tpoint.MOVE(MovX,MovY:integer);
begin
CLR;
 Tpoint.NewX(MovX);
 Tpoint.NewY(MovY);
 DRAW;
end;

//---------------------------------------------------
procedure Tpoint.DRAW;
begin
Form1.Canvas.Pixels [x,y]:=col;
end;

//---------------------------------------------------
Procedure TPoint.CLR;
begin
Form1.Canvas.Pixels [x,y]:=clBtnHighlight;
end;

[puporev]

Это в принципе не важно, просто пропишите модуль где это положено и создайте экземпляры объектов.

[Ольг]

объясните пжс, где и как прописать модуль и как создать экземпляры объектов, или посоветуйте где можно найти информацию на эту тему

[puporev]

Так я же Вам уже написал! В первом своем посте. Исправьте свой код и все. А почитать хоть где. Наберите в Гугле типа Объектное программирование в Делфи, или объекты в Делфи.

[Ольг]

Вру. Вызываемая процедура:

Procedure TPoint.INIT(initX,InitY:integer; initCol:word);
begin
 NewX(initX);
 NewY(initY);
 NewCol(initCol);
end;

всё работает. спасибо