Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Как удалить динамически созданую кнопку самой себя


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

Автор: z-END 1.4.2005, 17:15
Цитата(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;

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

Автор: fess 1.4.2005, 17:40
Попробуй уничтожать через 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.



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

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

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

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;

Автор: Zero 1.4.2005, 21:41
Цитата(fess @ 1.4.2005, 17:40)
Попробуй уничтожать через Timer
Нее... это называется сделай велосипед.
Цитата(z @ 1.4.2005, 17:41)
Zero я тебе показал данным примером, что при удалении кнопки никакой ошибки нет и возникать не может... положи мой код на пустой форме - при запуске создастся кнопка при нажатии на нее удалится.

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

(Sender As TButton).Free; 
она возникнуть просто обязана была т.к. ты удалял кнопкой саму себя, а в Windows не разрешатся удалять запущеные процессы.
Ну до ладно, я только что сам нашёл один материал, и работает: smile
Код

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; 

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

Автор: Alex 2.4.2005, 01:38
Цитата(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

Автор: Zero 2.4.2005, 09:32
Цитата(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; 
Почему то тоже не возникает ошибка, а напишу в проге наверняка появится, smile или как говорил Посол изменится погода и тоже будет ошибка... smile Блин, похоже не мой код и не твой не подходит.
Alex а мож есть офицально признаный код для "удаления самого себя", чтобы 100% работал, самое главное при показе преподу чтобы не возник. А то у некотрых так бывает, что пока делаешь в Wib'XP, то работает нормально, хотя и должно глюкать, а потом приносишь в радик свой курсач, там на 98-ых сразу что-ниюудь да глюканёт, и пятёрка накроется, а точнее переделывать придётся и потом приходить через неделю. smile

Автор: Girder 2.4.2005, 09:42
http://forum.vingrad.ru/index.php?showtopic=42822&view=findpost&p=329564

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

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

Автор: December 2.4.2005, 15:18
Проблему можно решить с помощью ApplicationEvents.OnIdle - будет работать на любой системе.

Автор: Girder 2.4.2005, 20:16
Цитата(Alex @ 2.4.2005, 15:29)
Сделай как говорит Girder и все будет нормально.
Тот код... предназначен для динамически созданных компонентов smile
Но... вот ентот код... для любых... созданный компонентов smile
Код

...
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 smile

Или вот так:
Код
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;

Автор: Zero 2.4.2005, 23:48
Цитата(Girder @ 2.4.2005, 20:16)
Тот код... предназначен для динамически созданных компонентов
Да у меня так и есть. О... Класс. smile Значит если добавить процедуру удаления на события нажатия мыши, то все глюки исчезают. smile
Спасибо, Girder, твой код самый лучший из всех на данный момент предложенных, smile его я и буду использовать у себя. smile

Автор: Alex103 3.4.2005, 01:11
Может так!!!
Код

Panel1.destroy;

Автор: Girder 3.4.2005, 02:19
Цитата(Alex103 @ 3.4.2005, 02:11)
Может так!!!
Может... но срезультатом 50/50 smile Все будет тогда зависит от твоей очереди сообщений(если ты нажимаеш мышкой).

PS: Т.е. не надежно smile То будет... возникать ошибка... то нет smile

Автор: Alex103 3.4.2005, 02:28
Цитата(Girder @ 3.4.2005, 02:19)
Цитата(Alex103 @ 3.4.2005, 02:11)
Может так!!!
Может... но срезультатом 50/50 smile Все будет тогда зависит от твоей очереди сообщений(если ты нажимаеш мышкой).

PS: Т.е. не надежно smile То будет... возникать ошибка... то нет smile

буду знать сенкс.

Автор: Zero 3.4.2005, 08:01
Цитата(Alex103 @ 3.4.2005, 01:11)
Может так!!!

Типо того оно и было.
Цитата(Girder @ 3.4.2005, 02:19)
но срезультатом 50/50  Все будет тогда зависит от твоей очереди сообщений(если ты нажимаеш мышкой).
Girder а ты поподробней не мог бы написать, а то я тоже не понял, почему иногда нормально, а иногда нет.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)