VPF::Удаление кнопки после ее нажатия

DriveIS

Дата 19.5.2007, 07:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Как удалить кнопку с формы после нажатия на нее же?
Если просто писать Free в обработчике события OnClick вылетает ошибка, хотя кнопка удаляется. Такая ошибка происходит не всегда, закономерности ее появления пока не нашел.
Может кто-то сталкивался с такой проблемкой.

Sansa

Дата 19.5.2007, 08:01 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


procedure Form1.Button1OnClick(Sender: TObject);
begin
  if Sender is TButton then
    TButton(Sender).Visible:= False;
end;

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

- Здравствуйте, я Ваш патологоанатом

DriveIS

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

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

Загрузка ...

Новичок

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

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

Нет... Такой вариант был у меня, но это не решение.
Кнопку требуется именно удалить. Думал, что дело в фокусе, который на кнопке при ее нажатии, но после Visible:=false и free ошибка все так же появлялась.

Sansa

Дата 19.5.2007, 08:26 (ссылка)

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

Загрузка ...

Бывалый

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

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

Создаешь кнопку в рантайме или при разработке?

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

- Здравствуйте, я Ваш патологоанатом

MetalFan

Дата 19.5.2007, 11:07 (ссылка)

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

Загрузка ...

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

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

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

Код


может так?
procedure Form1.Button1OnClick(Sender: TObject);
begin
  PostMessage( TButton(Sender).Handle, WM_CLOSE, 0, 0);
end;

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

There are always someone smarter than you...

MetalFan

Дата 19.5.2007, 11:33 (ссылка)

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

Загрузка ...

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

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

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

еще вариант:

Код


const
  WM_DESTROYOBJ = WM_APP + 1;

type
  TForm1 = class(TForm )
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure WMDestroyObj( var AMessage: TMessage); message WM_DESTROYOBJ;
...
procedure TForm1.btn1Click(Sender: TObject);
begin
  PostMessage( Self.Handle, WM_DESTROYOBJ, Integer( Sender ), 0 );
end;

procedure TForm1.WMDestroyObj(var AMessage: TMessage);
begin
  TObject( AMessage.wParam ).Free;
end;

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

There are always someone smarter than you...

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