Народ у меня есть такой вопрос???
Почему когда я динамически создал ряд кнопок, и после пытаюсь удалить эти кнопки, то при удалении некотрых бывает, что просто выдаётся ошибка и прога закрывается.
Причём я заметил, что именно если первые 2 кнопки стояющие слева на форме если их сразу удалить то возникает, глюк, а если перед этим др. кнопки удалить, а потм эти то вроде всё нормально.
да кстати у меня ещё сделано открытие доступа удаления этих кнопок на Button2...
Не подскажете почему происходят глюки, и возможный способ решения против этого. 
| Код |
uses buttons,stdctrls,...
...
type
TForm1 = class(TForm)
...
procedure buttonclick(sender: tobject);
...
var
Form1: TForm1;
udalenie:boolean;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with tspeedbutton.Create(parent) do
begin
parent:=form1;
onclick:=buttonclick;
left:=i;
i:=i+25;
end;
end;
procedure tform1.buttonclick(sender: tobject);
begin
if udalenie then
begin
(sender as tspeedbutton).Free;
i:=i-25;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if button2.Caption='Режим удаления открыт' then
begin
button2.Caption:='Режим удаления закрыт';
udalenie:=false;
end
else
begin
button2.Caption:='Режим удаления открыт';
udalenie:=true;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
i:=1; udalenie:=false;
end; |
|
