САБЖ.
Короче, у меня создаётся динамически панель на которой находится кнопка, и при нажатии на неё надо чтобы панель в месте с кнопкой удалялась.
Но при удалении кнопки, т.к. она удаляет сама себя появляется ошибка, как этого избежать.
PS: Альтернативные варианты не подходят, т.е. кнопка должна полюбому создаватся динамически, и потом удалятся при нажатии на неё.

Цитата(Zero @ 1.4.2005, 18:07)

Но при удалении кнопки, т.к. она удаляет сама себя появляется ошибка, как этого избежать.

это первоапрельское помешательство-)

Код

type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   public     procedure ThisButtonMUST_DIE(Sender:TObject);   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ThisButtonMUST_DIE(Sender: TObject); begin (Sender As TButton).Free; end; procedure TForm1.FormCreate(Sender: TObject); var T:TButton; begin T:=TButton.Create(Self); T.OnClick:=ThisButtonMUST_DIE; T.Parent:=Self; T.Top:=15; T.Caption:='Kamikadze!!!'; end;

z-END я понимаю что сегодня 1-ое апреля, но мне не смешно... Я уже со вчерашнего вечера не могу исправить эту ошибку.
Ты лучше покажи как её удалить и чтобы ошибка не выскакивала.

Попробуй уничтожать через Timer, т.е. в событии кнопки OnClick включаешь таймер, а в событии OnTimer уничтожаешь панель и кнопку.

Пример кода:

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   Panel1: TPanel;   Button1: TButton;   Timer1: TTimer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   Timer1.Enabled:=true; end; procedure TForm1.FormCreate(Sender: TObject); begin   Panel1 := TPanel.Create(Self);   Button1 := TButton.Create(Self);   with Panel1 do   begin     Name := 'Panel1';     Parent := Self;     Left := 296;     Top := 120;     Width := 185;     Height := 137;     Caption := 'Panel1';     TabOrder := 0;   end;   with Button1 do   begin     Name := 'Button1';     Parent := Panel1;     Left := 54;     Top := 32;     Width := 75;     Height := 25;     Caption := 'Button1';     TabOrder := 0;     OnClick := Button1Click;   end;   Timer1 := TTimer.Create(Self);   with Timer1 do   begin     Name := 'Timer1';     OnTimer := Timer1Timer;     Timer1.Enabled:=false;     Timer1.Interval:=1;   end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   Panel1.Destroy;   Timer1.Enabled:=false; end; end.

У меня работает без ошибок.

Это сообщение отредактировал(а) fess - 1.4.2005, 17:41

Zero я тебе показал данным примером, что при удалении кнопки никакой ошибки нет и возникать не может... положи мой код на пустой форме - при запуске создастся кнопка при нажатии на нее удалится.

ЗЫ прошу прощения, про панель не заметил
в таком случае менеям первоапрельскую процедуру на такую:

Код

procedure TForm1.ThisButtonMUST_DIE(Sender: TObject); var F:TPanel; begin  F := TPanel ((Sender As TButton).Parent);   while F.ControlCount > 0 do F.Controls[0].Free; F.Free; end;

Это сообщение отредактировал(а) z-END - 1.4.2005, 17:56

Цитата(fess @ 1.4.2005, 17:40)

Попробуй уничтожать через Timer

Нее... это называется сделай велосипед.

Цитата(z @ 1.4.2005, 17:41)

Zero я тебе показал данным примером, что при удалении кнопки никакой ошибки нет и возникать не может... положи мой код на пустой форме - при запуске создастся кнопка при нажатии на нее удалится.

Дык я то что до этого и сделал, и при выполнении строки:

Код

(Sender As TButton).Free;

она возникнуть просто обязана была т.к. ты удалял кнопкой саму себя, а в Windows не разрешатся удалять запущеные процессы.
Ну до ладно, я только что сам нашёл один материал, и работает:

Код

const WM_DELBTN = WM_USER + 1234; type   TForm1 = class(TForm)     Panel1: TPanel;     SpeedButton1: TSpeedButton;     procedure buttonclick(sender: tobject);     procedure delbutton(var msg : TMessage); message WM_DELBTN;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   p:tpanel;   s:tspeedbutton; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin   p:=tpanel.Create(form1);   with p do     begin       parent:=form1;     end;   s:=tspeedbutton.Create(p);   with s do     begin       parent:=p;       onclick:=buttonclick;     end; end; procedure TForm1.DelButton; begin   p.Free end; procedure TForm1.buttonclick(sender: tobject); begin   PostMessage (Handle, WM_DELBTN, WPARAM(Sender), 0); end;

Вот так, учись студент!!!

Цитата(Zero @ 1.4.2005, 21:41)

Вот так, учись студент!!!

Мда... Студент, учиться вам еще долго. Если ты уничтожаешь панель, то всем объектам владельцам, которых является панель, также отправляется сообщение об удалении. Именно поэтому ты и получал ошибку при удалении кнопки. Скорей всего ты удалял панель, а потом уже кнопку, которой уже не существует т.к. при удалении панели кнопка, принадлежащая панели уже удалилась.

Вот тебе два кода удаления кнопки и панели по нажатию на кнопку и не один из них не приведет к ошибке:
1.

Код

procedure TForm1.Button9Click(Sender: TObject); begin   Panel1.Free;   if Assigned(Button9) then begin     ShowMessage('Объект кнопка существует');     Button9.Free;   end   else     ShowMessage('Объект кнопка не существует'); end;

2.

Код

procedure TForm1.Button9Click(Sender: TObject); begin   if Assigned(Button9) then begin     ShowMessage('Объект кнопка существует');     Button9.Free;   end   else     ShowMessage('Объект кнопка не существует');   Panel1.Free; end;

Button9 лежит на panel1

Цитата(Alex @ 2.4.2005, 01:38)

и не один из них не приведет к ошибке

Alex да ты бы хоть сам то для начала проверил, первый твой код. Как раз он и приводит к той же ошике что и у меня получалась, т.к. у тебя сначала удаляется панель, а потом Assigned выдаёт ложную информцию, а потом удаляется не существующая кнопка.

Цитата(Alex @ 2.4.2005, 01:38)

Скорей всего ты удалял панель, а потом уже кнопку, которой уже не существует т.к. при удалении панели кнопка, принадлежащая панели уже удалилась.

Нет.

Цитата(Alex @ 2.4.2005, 01:38)

Если ты уничтожаешь панель, то всем объектам владельцам, которых является панель, также отправляется сообщение об удалении.

Ето я знаю, поэтому удалял только одни панели, но при удалении кнопки, так как у меня на панельках есть кнопка удалить (ну типа поста), то при удалении этой кнопки (самой себя и возникала ошибка).
Хотя сейчас просто попробывал удалить так:

Код

procedure TForm1.FormCreate(Sender: TObject); begin   p:=tpanel.Create(form1);   with p do     begin       parent:=form1;     end;   s:=tspeedbutton.Create(p);   with s do     begin       parent:=p;       onclick:=buttonclick;     end; end; procedure TForm1.buttonclick(sender: tobject); begin   P.Free; end;

Почему то тоже не возникает ошибка, а напишу в проге наверняка появится, или как говорил Посол изменится погода и тоже будет ошибка... Блин, похоже не мой код и не твой не подходит.
Alex а мож есть офицально признаный код для "удаления самого себя", чтобы 100% работал, самое главное при показе преподу чтобы не возник. А то у некотрых так бывает, что пока делаешь в Wib'XP, то работает нормально, хотя и должно глюкать, а потом приносишь в радик свой курсач, там на 98-ых сразу что-ниюудь да глюканёт, и пятёрка накроется, а точнее переделывать придётся и потом приходить через неделю.

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=329564

Zero, приношу свои извинения за примеры. Я их проверял, но так вышло, что они работали. Сделай как говорит Girder и все будет нормально.

Alex а вообщето тот код который у меня, я его взял в одной теме где отвечал Посол, а его коды обычно у меня работают нормально. Поэтому может впринципе можно и так оставить, или есть что-то конкретное, что именно тебе в нём не понравилось? (конечно Посол его давал немного подругому, но так у меня вроде пока работает)
Girder а ты не мог бы пояснить, в твоём примере всё на API-функциях сделано, а я их терпеть не могу, как тогда сделать, с учётом что у меня всё в том числе и кнопка которой я удаляю находится на панели, а удаляю я сами панели, а на них мнго компонентов находятся, и они автоматически удаляются при удалении панели... Короче какой код посоветуешь для удаления панели самой?

Проблему можно решить с помощью ApplicationEvents.OnIdle - будет работать на любой системе.

Цитата(Alex @ 2.4.2005, 15:29)

Сделай как говорит Girder и все будет нормально.

Тот код... предназначен для динамически созданных компонентов
Но... вот ентот код... для любых... созданный компонентов

Код

... procedure TForm1.Button2Click(Sender: TObject); begin  Panel1.Free; end; procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  Panel1.Free; end;

PS: Кнопка Button2 и хреново туча компонентов... лежит на Panel1

Или вот так:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  Button1.Free; end; procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  Button1.Free; end;

Это сообщение отредактировал(а) Girder - 2.4.2005, 20:53

Цитата(Girder @ 2.4.2005, 20:16)

Тот код... предназначен для динамически созданных компонентов

Да у меня так и есть. О... Класс. Значит если добавить процедуру удаления на события нажатия мыши, то все глюки исчезают.
Спасибо, Girder, твой код самый лучший из всех на данный момент предложенных, его я и буду использовать у себя.

Может так!!!

Код

Panel1.destroy;