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

[PVD]

...
TMainForm = class(TForm)
...
procedure PropertyDelClick(Sender: TObject);
...

пишет
[Error] Unit1.pas(41): Unsatisfied forward or external declaration: 'TMainForm.PropertyDelClick'

аа лес

я понял в чем была все это проблема очень простая причина у меня был объект с именем name в фрайме

все ровно выдает ошибки

procedure TMainForm.PropAddClick(Sender: TObject);
var N:integer;
begin
For N:=1 To 100 Do
  If props[N]=nil Then break;
with Tpropertyedit.Create(props[N]) do
  begin
  Name:='_'+IntToStr(N);
  Parent:=mainform.PropList;
  Delete.OnClick:=PropertyDelClick;
  show;
  Align:=altop;
  AutoSize:=true;
  end;
end;

procedure Tmainform.PropertyDelClick(Sender: Tobject);
var N:Integer;
Begin
TButton(sender).Parent.Free;
End;

при удалении

[Stilet]

If props[N]=nil Then break;

Воу.... Ты это засем написал, насяльника? Убери эту строку - первый же пустой элемент, и никогда по идее у тебя не создастся Tpropertyedit.
Вообще не понимаю что ты там такого накосячил. у меня все работает, я проверял.
Какие ошибки то выдает?

[PVD]

добавил сообщение при удалении замтил интересный файл у всех удаляемых объектов имя равно "1"! с чем это может быть связано разве при

procedure TMainForm.PropAddClick(Sender: TObject);
var N:integer;
begin
For N:=1 To 100 Do
  If props[N]=nil Then break;
with Tpropertyedit.Create(props[N]) do
  begin
  Name:='_'+IntToStr(N);
  Parent:=mainform.PropList;
  Delete.OnClick:=PropertyDelClick;
  show;
  Align:=altop;
  AutoSize:=true;
  end;
end;

procedure Tmainform.PropertyDelClick(Sender: Tobject);
var N:Integer;
Begin
TButton(sender).Parent.Free;
End;

массив не заполняется?

ну как же мне нужнож чтоб имена не совпадали?

я просто хотел проверять на существования через масив

[Stilet]

ну как же мне нужнож чтоб имена не совпадали?

Дык посмотри, в моем приере имена даются уникальные
Можно еще и так:

    Name:='_'+FormatDateTime('yyyymmddhhnnsszz',now);

Тут точно не должно быть совпадений

[PVD]

For N:=1 To 100 Do
  lcfree[N]:=true;
For N:=1 To componentCount Do
  If copy(components[N].Name,1,1)='_' Then
    Begin
    S:=components[N].Name;delete(S,1,1);
    lcfree[strtoint(S)]:=false;
    End;
For N:=1 To 100 Do
  If lcfree[N]=true Then break;
with Tpropertyedit.Create(self) do
  begin
  Name:='_'+IntToStr(N);
  Parent:=mainform;
  Delete.OnClick:=PropertyDelClick;
  show;
  Align:=altop;
  AutoSize:=true;
  end;

А так можно? правда чет не работает...

Тут точно не должно быть совпадений

да совпадений нет

как можно воспользоваться insertcomponent при таком раскладе?

проблема в том что мне нужно сохранять все property и поетому нужно знать сколько их

[raxp]

вот вам рабочий проект создания фреймов и скрытия их по нажатию на кнопку внутри-же них...

[PVD]

raxp большое человеческое спасибо!

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

о все понял еще раз спасибо массиву просто ноль присваиваю работает без лагов

интересно что нил работает только после обнуления парента..

From Stilet: Еще раз будешь постить подряд рядом свои сообщения тему закрою!