VPF::Как удалить кнопку - Форум программистов

Mina

Дата 26.11.2007, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 11.11.2005

Репутация: нет
Всего: нет

Кнопки создаются в Run-time.
Если возможно, то как удалить кнопки, при нажатии на них самих.
Вот код

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MyButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  b: array of TButton;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Inc(i);
 SetLength(b, i);
 b[i - 1]:= TButton.Create(Self);
 b[i - 1].Parent:= Self;
 b[i - 1].Name:= 'But' + IntToStr(i);
 b[i - 1].Caption:= b[i - 1].Name;
 b[i - 1].Top:= i * 30;
 b[i - 1].OnClick:= MyButtonClick;
end;



procedure TForm1.MyButtonClick(Sender: TObject);
begin
// Что здесь написать для удаления кнопки
end;

Что написать в обработчике события кнопки

Romkin

Дата 26.11.2007, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 14.11.2006
Где: Москва

Репутация: 2
Всего: 5

Послать сообщение форме с просьбой удалить self. Смотри TForm.Release. Просто делать self.Free крайне не рекомендую.

WaReZMEN

Дата 26.11.2007, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Можно сделать так

Код


procedure TForm1.MyButtonClick(Sender: TObject);
begin
  Sender.Destroy;
end;

НО, удалять можно будет только в том порядке в котором создавались кнопки...
И вообще не рекамендую smile

Это сообщение отредактировал(а) WaReZMEN - 26.11.2007, 13:24

Poseidon

Дата 26.11.2007, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Удалить корректно сможет только зачистчик Windows после закрытия программы. Так что я бы рекомендовал просто "скрыть".

Код

procedure TForm1.MyButtonClick(Sender: TObject);
begin
(Sender as TButton).Parent:= nil;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

MetalFan

Дата 26.11.2007, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Romkin @ 26.11.2007, 13:13

)

Послать сообщение форме с просьбой удалить

самое верное из всех приведенных решение имхо. как-то так:

Код


interface
const
  WM_FREEOBJECT = WM_APP + 1;
...
  procedure Button1Click( Sender: TObject );
  procedure OnWMFreeObject( var AMsg: TMessage ); message WM_FREEOBJECT;
..
implementation

  procedure TForm1.Button1Click( Sender: TObject );
  begin
    PostMessage( Self.Handle, WM_FREEOBJECT, Integer(Sender), 0 );
  end;

  procedure TForm1.OnWMFreeObject( var AMsg: TMessage );
  begin
    TObject( AMsg.LParam ).Free;
  end;

Это сообщение отредактировал(а) MetalFan - 26.11.2007, 15:33

--------------------

There are always someone smarter than you...

Rennigth

Дата 26.11.2007, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(WaReZMEN @ 26.11.2007, 13:20

)

Можно сделать так

код Pascal/Delphi
1:
2:
3:
4:

procedure TForm1.MyButtonClick(Sender: TObject);
begin
Sender.Destroy;
end;

НО, удалять можно будет только в том порядке в котором создавались кнопки...
И вообще не рекамендую

Ага, и словить при этом в большой долей вероятности AV или abstract error, или еще что похуже!!

--------------------

(* Honesta mors turpi vita potior *)

Lexicss

Дата 26.11.2007, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1

Фактически можно сделать так:

Код


procedure TForm1.MyButtonClick(Sender: TObject);
begin
  b[i - 1].Parent := nil;
  b[i - 1].Free;
end;

Делфи в данный момент никаких ошибок не выдаёт, но теоритически это неправильно, по крайней мере в документации написано, что так делать не рекомендуются - выполнять уничтожение кнопки из события вызванного по её нажатию.

Более красивый вариант предложен от MetalFan. Только позволю себе заметить, что правильнее будет указать в обработчике код TObject( AMsg.WParam ).Free; (а не LParam)

--------------------

Бери от жизни всё.

MetalFan

Дата 26.11.2007, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Lexicss, да знаешь ли... взял за правило примеры с ошибочками приводить, чтобы головой думали))))
но здесь реально перепутал, ибо писал на коленке без проверки в IDE

--------------------

There are always someone smarter than you...

Alexeis

Дата 26.11.2007, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Никаких проблем не должно быть при простом банальном удалении.
См код.

Код


destructor TComponent.Destroy;
begin
  Destroying;
  if FFreeNotifies <> nil then
  begin
    while Assigned(FFreeNotifies) and (FFreeNotifies.Count > 0) do
      TComponent(FFreeNotifies[FFreeNotifies.Count - 1]).Notification(Self, opRemove);
    FreeAndNil(FFreeNotifies);
  end;
  DestroyComponents;
//----------------------------------------------------------------------------------
  if FOwner <> nil then FOwner.RemoveComponent(Self);
//----------------------------------------------------------------------------------
  inherited Destroy;
end;

Все компоненты удаляют себя у родителей. Глюки в чем-то другом.

Добавлено через 2 минуты и 25 секунд
p.s. пример из первого поста отлично работает.

Добавлено через 14 минут и 20 секунд
На всякий случай проверил нет ли обращений к полям данных после вызова обработчика OnClick. Действительно нет никаких обращений, вполне допустимые действия.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rennigth

Дата 26.11.2007, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Alexeis @ 26.11.2007, 17:24

)

Никаких проблем не должно быть при простом банальном удалении.
См код.

код Pascal/Delphi
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

destructor TComponent.Destroy;
begin
  Destroying;
  if FFreeNotifies <> nil then
  begin
    while Assigned(FFreeNotifies) and (FFreeNotifies.Count > 0) do
      TComponent(FFreeNotifies[FFreeNotifies.Count - 1]).Notification(Self, opRemove);
    FreeAndNil(FFreeNotifies);
  end;
  DestroyComponents;
//----------------------------------------------------------------------------------
  if FOwner <> nil then FOwner.RemoveComponent(Self);
//----------------------------------------------------------------------------------
  inherited Destroy;
end;

Все компоненты удаляют себя у родителей. Глюки в чем-то другом.

Добавлено через 2 минуты и 25 секунд
p.s. пример из первого поста отлично работает.

Проблемы будут не из-за какого-то неправильного дестроя,а в ситуации например такой(код вымышленный):

Код


 
procedure TSomeObject.DoClick;
begin
  if Assigned(FOnClick) then
    FOnClick(Self); тут происходит уничтожение объекта.

//после этого мы обращаемся к полям не существующего объекта
  Font.Size := 12;
  DoResize;
  DoPaint;
end;

Что произойдет одному всевышнему известно. Проблемма не в том что именно для кнопки это прокатывает, а в том что мы не знаем, есть ли обращения к полям/методам класса после его разрушения или нет. Это априори опасно!!! smile

--------------------

(* Honesta mors turpi vita potior *)

Alexeis

Дата 26.11.2007, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Rennigth @ 26.11.2007, 17:39

)

Проблемы будут не из-за какого-то неправильного дестроя,а в ситуации например такой(код вымышленный):

Для того и учатся правильно писать код. Не писать же код с поправкой на дурака smile

Большинство таких поправок уже сделала VCL smile

--------------------

Romkin

Дата 26.11.2007, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 14.11.2006
Где: Москва

Репутация: 2
Всего: 5

TComponent - далеко. TWinControl - оно ближе. А там окно.
Хотя такое выглядит допустимым, но я не уверен.

Alexeis

Дата 26.11.2007, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Romkin @ 26.11.2007, 17:58

)

TComponent - далеко. TWinControl - оно ближе. А там окно.

Детишок контролы определяют как TComponent, потому нужный код следовало искать именно там, а TWinControl как TWinControl у него свой деструктор уничтожающий окно, только и всего.
Многие сообщения реализуются именно в TComponent благодаря VCL.

--------------------

Rennigth

Дата 26.11.2007, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Alexeis @ 26.11.2007, 17:52

)

Большинство таких поправок уже сделала VCL

ню незнаю... имхо на vcl надейся а сам не плошай! smile

--------------------

(* Honesta mors turpi vita potior *)

Alexeis

Дата 26.11.2007, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Rennigth, я уж привык, что логичные вещи в VCL работают так как этого хочеться.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »