как в ран тайме изменить процедуру?

[Dennis777]

Ребята, возможно вопрос покажется ламерским, но очень нужна помощь, никогда раньше не сталкивался с подобной задачей:

Предположим на форме есть 5 кнопок:

Первые 3: с номером 1, 2, 3
И другие 2: Кнопка 1, Кнопка 2

Нужно сделать так, чтобы по нажатию на кнопки 1,2,3 изменялись события onClick на кнопках Кнопка 1, кнопка 2. Как это можно реализовать?)

[Аватар]

Просто в событии OnClick одной кнопки динамически переназначить обработчик этого же события другой кнопки. Или в обработчиках события учитывать, что были клики по другим кнопкам

[Dennis777]

Вот как именно преобразовать обработчик события для другой кнопки?))

что писать надо?)

[Dennis777]

АА. Ну в принципе, можно же просто создать счетчик для каждой кнопки 1,2,3, и потом просто по клику на кнопку 1, кнопку 2, проверять какое значение счетчика. Что-то то я туплю, вроде разобрался0))

[Аватар]

procedure Button5Click(Sender: TObject);

...

  Button1.OnClick:=Button5Click;

[Serge_Bliznykov]

во-первых, я совсем не уверен, что Вам это нужно!! (вопрос из рубрики, как мне отвёрткой забить гвоздь...)

во-вторых, технически никаких проблем нет:

type
  TForm1 = class(TForm)
    Button1: TButton;
    ButtonChange: TButton;
    ButtonChange2: TButton;
    procedure MyNew1Click(Sender: TObject);
    procedure MyNew2Click(Sender: TObject);
    procedure ButtonChangeClick(Sender: TObject);
    procedure ButtonChange2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.MyNew1Click(Sender: TObject);
begin
  ShowMessage('Процедура 1');
end;

procedure TForm1.MyNew2Click(Sender: TObject);
begin
  ShowMessage('Процедура 2');
end;

procedure TForm1.ButtonChangeClick(Sender: TObject);
begin
  Button1.OnClick := MyNew1Click
end;

procedure TForm1.ButtonChange2Click(Sender: TObject);
begin
  Button1.OnClick := MyNew2Click
end;

[Dennis777]

о, так даже проще!) Всем огромное спасибо!)