Имя динамических объектов

[PVD]

uses........

Uses of uses
этот модуль добавляется в главный модуль я не могу подключить главный модуль к этому модулю. Как дать имя элементу?

[raxp]

полный код откуда чего.

[PVD]

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Outline, StdCtrls,ShellApi, ComCtrls, Buttons, Menus,
  ExtDlgs, ExtCtrls, ActnList, jpeg, ToolWin, ActnMan, ActnCtrls, ActnMenus,
  CustomizeDlg, OleServer, WordXP, Propeties;

...

var
props:array[1..100] of TPropertyEdit;

...


procedure TMainForm.PropAddClick(Sender: TObject);
var
N:Integer;
begin
For N:=1 To 100 Do
  If (props[n]=nil) Then break;
props[N]:=TPropertyEdit.Create(props[N]);
props[N].Parent:=Mainform.PropList;
props[N].Autosize:=true;
props[N].Align:=altop;
mainform.PropList.InsertComponent(props[N]);
end;

unit Propeties;

interface

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

type
  TPropertyEdit = class(TFrame)
    Name: TEdit;
    Value: TEdit;
    Delete: TButton;
    ComboBox1: TComboBox;
    Bevel1: TBevel;
    procedure DeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}


procedure TPropertyEdit.DeleteClick(Sender: TObject);
begin

end;

end.

[PVD]

Я вообще думаю может просто кликам уничтожения propertyEdit локальную процедуру по отношению к unit1 присвоить?

[Stilet]

А-а-а.Я понял что ты хочешь. Ты хочешь назначить обработчик DeleteClick каждому компоненту, а в нем определять какой из компонентов вызвал его?
Тогда тут все просто - Sender в этом обработчике как раз указывает на нужный контрол, вызвавший это событие, стало быть:

procedure TPropertyEdit.DeleteClick(Sender: TObject);
begin
 TPropertyEdit(Sender).Free;
end;

Должен это сделать. Впрочем это может быть чревато последствиями. Я бы не рассчитывал на надежность твоей задумки.

[raxp]

проблема надумана... просто перенесите объявление, создание и удаление props в модуль Propeties... насчет обработчика, свойства tag разве нет.

[PVD]

нет так выдает ошибку Abstract Error так же как и просто free

[raxp]

procedure TPropertyEdit.DeleteClick(Sender: TObject);
begin
 with (sender as TPropertyEdit) do
  props[tag].free
end;

[PVD]

Перенес все в один модуль Пишет Invalid Class TypeCast

[Stilet]

Вот смотри что я думаю:
Главная форма:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Frame21Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const w=100;
var i:integer;
begin
 for i:=0 to 5 do begin
   with TFrame2.Create(self) do begin
    Name:='_'+IntToStr(i);
    Top:=i*w; Left:=i*w;
    Width:=w;Height:=w;
    Parent:=self;
    Button1.OnClick:=Frame21Button1Click;
    show;
   end;
 end;
end;

procedure TForm1.Frame21Button1Click(Sender: TObject);
begin
   TButton(sender).Parent.Free;

end;

end.

Фрейм самый обычнейший. Попробуй так может тебе это более подойдет.