Уничтожить кнопку при нажатии на неё же.

[vovk]

Сообщение от asmodey1

А если не теоретизировать, а попробовать ?
Я вот попробовал... И получил абстрактную ошибку.
Но вы упирайтесь рогом дальше. Доказывайте псевдоправоту...

Не знаю как вы рога у форумчан обнаруживаете, но у меня без ошибок работает.

[Пепел Феникса]

procedure TMButton.Click;
begin
  inherited click; //базовое действие с обращением к нашему Onclick где есть Free
  Canvas.Drawrect;//код остался на месте продолжаем работу и получаем ......
end;

вообще это кривость, ибо оно в конце должно быть, а не в начале.

[Sibedir]

Сообщение от asmodey1

А если не теоретизировать, а попробовать ?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Sender.Free;
end;

Работает без ошибок. И чё?

Я вот попробовал... И получил абстрактную ошибку.

Код и сообщение ошибки плиз

Но вы упирайтесь рогом дальше. Доказывайте псевдоправоту...

У меня, знаете, рогов нет, чтобы ими упираться. Вам что не нравится принцип дискуссионного общения форумов? Хотите поговорить об этом?

[WhiteSpirit]

Попробовал сделать такую штуку

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

var
  Form1: TForm1;
  Counter: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(Counter);
with TButton.Create(Self) do begin
    Caption:=IntToStr(Counter);
    Parent:=Self;
    Top:=(Counter - 1) * 40;
    OnClick:=btClick;
    end;
end;

procedure TForm1.btClick(Sender: TObject);
begin
Sender.Free;
end;

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

[veniside]

Не поленился, проверил. В Дельфи с 4 по 7 падает независимо от того, в какой последовательности удалять кнопки. Хоть с последней, хоть с первой. В 2005 не проверял. В 2006 и дальше ничего не падает, кнопки можно удалять в любой последовательности.

[Sibedir]

const 
  WM_DELETEBUTTON = WM_USER + 1 ;

type
  TForm1 = class(TForm)
    ...
  public
    { Public declarations }
    procedure btClick(Sender: TObject);
    procedure WmDeleteButton (var M: TMessage ); message WM_DELETEBUTTON;
  end;

...

implementation

...

procedure TForm1.btClick(Sender: TObject);
begin
  PostMessage (Handle, WM_DELETEBUTTON, Integer (Sender), 0);
end;

procedure TForm1.WmDeleteButton(var M: TMessage);
begin
  TButton(M.WParam).Free;
end;

Ичточник http://www.sql.ru/forum/actualthread.aspx?tid=130035

[veniside]

Именно то, о чём давно сказал mss, и без всяких таймеров.

[NoName_emaNoN]

Сообщение от WhiteSpirit

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

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

Сообщение от veniside

Не поленился, проверил. В Дельфи с 4 по 7 падает независимо от того, в какой последовательности удалять кнопки. Хоть с последней, хоть с первой. В 2005 не проверял. В 2006 и дальше ничего не падает, кнопки можно удалять в любой последовательности.

А вот это уже интересней, попробую перенести код на новую делфи, если всё так, спасибо :-)

Сообщение от Sibedir

const 
  WM_DELETEBUTTON = WM_USER + 1 ;

type
  TForm1 = class(TForm)
    ...
  public
    { Public declarations }
    procedure btClick(Sender: TObject);
    procedure WmDeleteButton (var M: TMessage ); message WM_DELETEBUTTON;
  end;

...

implementation

...

procedure TForm1.btClick(Sender: TObject);
begin
  PostMessage (Handle, WM_DELETEBUTTON, Integer (Sender), 0);
end;

procedure TForm1.WmDeleteButton(var M: TMessage);
begin
  TButton(M.WParam).Free;
end;

Ичточник http://www.sql.ru/forum/actualthread.aspx?tid=130035

Большое спасибо! Попробую этот код, он даже сможет упростить всё.

[Sibedir]

Именно то, о чём давно сказал mss, и без всяких таймеров.

Блин, пропустил. mss +1

[dosha]

Button1.Destroy; - тупой вариант