Как задать действие объекту?

[Марк Охман]

Как сделать так чтобы при нажатии на одну кнопку, для другой кнопки прописывалось определенное действие. Т.е. изначально его в коде нет, а после нажатия оно появится в кнопке.

[Риндера]

Банально и просто.
procedure Button1.onClick (Sender: Tobject);
begin
Button2.onClick := ProcedureName;
end;

ProcedureName - просто имя существующей процедуры, без кавычек и других лишних знаков.

[_-Re@l-_]

Это свойство называется метаморфинг кода(или метаморфизм, точно не помню), но в Delphi его нет.
Риндера, мы с вами посмотрели на проблему с разных сторон - вы с банальной, а я с научной.
В общем, нашёл:
полиморфизм(генерация мусорного кода)
метаморфинг(замена инструкций аналогами)
пермутация(случайное перемешивание блоков кода с сохранением функционала и логики работы)
обфускация(метод запутывания логики кода, противодействие анализу)...

[zumm]

Это свойство называется метаморфинг кода(или метаморфизм, точно не помню), но в Delphi его нет.

Это свойство называется полиморфизм. Но это не то о чем ты подумал Риндера, уже ответила на вопрос сполна.

[Риндера]

Как это нет?! Я лично так присваивала события и всё работало!)

[_-Re@l-_]

Ещё раз...

Это свойство называется метаморфинг кода(или метаморфизм, точно не помню), но в Delphi его нет.
Риндера, мы с вами посмотрели на проблему с разных сторон - вы с банальной, а я с научной.
В общем, нашёл:
полиморфизм(генерация мусорного кода)
метаморфинг(замена инструкций аналогами)
пермутация(случайное перемешивание блоков кода с сохранением функционала и логики работы)
обфускация(метод запутывания логики кода, противодействие анализу)...

[Марк Охман]

а процедуру сначала описать надо, верно? подскажите плиз как это сделать))

[Риндера]

В начале программы там где перечислены все процедуры допиши еще одну
Procedure Name(Sender: Tobject);

И далее где-нибудь еще напиши саму эту процедуру
Procedure Form1.Name(Sender: Tobject);
begin
<операторы>
end;

П.С. Я обычно "свои" процедуры пишу перед всеми остальными, чтобы 1. не запутаться; 2. не возникало лишних ошибков.

[_-Re@l-_]

Мда...

Procedure MyProc;
Begin
        //действия
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
        Button1.Onclick:=MyProc;
End;

Как-то вот...

[Марк Охман]

Спасибо всем огромное!!))))