Уничтожить кнопку при нажатии на неё же.

[Sibedir]

Кстати, заметил, что если использовать просто Sender.Free, то ошибка возникает, только когда кликаеш по кнопке мышкой. При нажатии с клавиатуры никаких ошибок.

[NoName_emaNoN]

+ 1 когда фокус на кнопке, и жмёшь пробел - ошибка не выскакивает.

[asmodey1]

Сообщение от NoName_emaNoN

+ 1 когда фокус на кнопке, и жмёшь пробел - ошибка не выскакивает.

Все верно. А почему ?
А вы обратите внимание, какое событие обрабатывается - событие отпускания клавиши.
А вот если б была обработка события нажатия - то ERROR...
Немного по-другому с нажатием мышки - если Sender.Free ставить в обработчик OnMouseUp, OnMouseDown - ошибки нет, OnMouseClick - ошибка...

[Sibedir]

Наверное он пытается отрисовать отжатую кнопку, которой уже нет.

[NoName_emaNoN]

2 Sibedir: Наверное.

Вобщем, опытным путём было установлено, что в Delphi 2010 ошибки нет.

Если в Delphi 7 процедуру присваивать НЕ к OnClick, а к OnMouseUp, то всё работатет без ошибок, но если нажимать кноку, которая добавляет поля, не мышкой а с клавиатуры пробелом, то исчезают все кноки удаления предыдущих полей.

Вобщем вот накатал небольшую демку, кому интересно - зацените :-)

[Vaigard]

Не знаю, к чему так растягивать эту тему

procedure tform1.button1click(sender:tobject);
begin
button1.free;
end;

Исчезла без проблем

[vovk]

Сообщение от Vaigard

Не знаю, к чему так растягивать эту тему

procedure tform1.button1click(sender:tobject);
begin
button1.free;
end;

Исчезла без проблем

прежде чем писать прочитайте все посты.

[Sibedir]

Сообщение от 2 NoName_emaNoN

Вобщем вот накатал небольшую демку, кому интересно - зацените :-)
Вложения Fields.zip (204.9 Кб, 0 просмотров)

Глюк с NewCount. Удалил средний блок, а добавить новый не могу.

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EComponentError with message 'A component named NewEdit16 already exists'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Просто заведи счетчик и увеличивай на 1 и все. Ну или исправь своё именование.

[NoName_emaNoN]

Да, точно, есть такая ошибка. Счётчик здесь не поможет. Тут нужно либо при удалении переименовывать последующие поля, либо придумывать новый способ создания объектов. Я думаю через try except можно.

UPD: Исправил проблему заменой одной строки в процедуре CreateAddNewField;
Строку:

Inc(NewCount, 1);

Заменил на:

NewCount := GroupBox1.Controls[I].Tag + 1;