Delphi Обработчик события

[SnS]

Здравствуйте, мне необходимо по клику по форме создать несколько Shape, а при повторном нажатии на Shape удалить их. я создаю Shape:

var
Form1: TForm1;
m: array[1..10] of TShape;
i:integer;

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
m[i]:=TShape.Create(Form1);
m[i].Top:=Y-50;
m[i].Left:=X-50;
m[i].Width:=100;
m[i].Height:=100;
m[i].Parent:=panel2;
m[i].Name:=mas[i].ClassName+IntToStr(i);
label1.Caption:=mas[i].Name;
counter:=counter+1;
end;

и тут мне пишет ошибку:

[Error] Unit1.pas(22): Undeclared identifier: 'TShape'. Помогите пожалуйста, что не так?

[Stilet]

Пропиши в uses модуль ExtCtrls

[SnS]

он теперь и на этот модуль ругается: [Error] Unit1.pas(7): Declaration expected but identifier 'ExtCtrls' found

[Stilet]

Показывай как прописал )

[SnS]

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

[SnS]

соррри, разобрался, тупанул

[Stilet]

Бывает... )

[SnS]

Подскажите пожалуйста ещё, первый клик-это создание круга, а второй клик его закрашивание красным, а третий- синим.

[Stilet]

Ну как-то так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses      ExtCtrls,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure ShapeClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClick(Sender: TObject);
begin
  with TShape.Create(self) do begin
   Left:=Random(100); top:=Random(100);
   Width:=random(100); Height:=Random(100);
   OnClick:=ShapeClick;
   Tag:=1;
   Parent:=self;
   Show;
  end;
end;

procedure TForm1.ShapeClick(Sender: TObject);
begin
 with TShape(Sender) do
  if tag=1 then Color:=clRed else
    if tag=2  then Color:=clBlue else
end;

end.

Почитай в хелпе подробнее про свойсво отвечающее за цвет у Shape, я не помню точно.

[SnS]

простите, за вопрос, но у меня он ругается на OnClick:=ShapeClick; пишет:unit1.pas(38,13) Error: Wrong number of parameters specified for call to "ShapeClick"