Delphi:Change procedure from button

примерно имаме един бутон чрез който се затравя програмата.

Как мога чрез втори бутон да променя функцията на първия

(примерно натискам втория и ако натиснете първия вече програмата няма да се разтвори ами нещо друго ще стане)

КАК??

Има няколко начина за това.

Един лесен и елементарен начин е като си направиш отделни процедури за нещата които трябва да прави бутон1. Тези процедури ги викаш при кликване на бутон1, като там са включени в блок



<font color="brown">case</font id="brown"> "УправляващаПроменлива:Integer" <font color="brown">of</font id="brown">

1:Prucedure1;

2:Procedure2;

...............

n:ProcedureN;

<font color="brown">end;</font id="brown">



А при кликване върху бутон2 задаваш стойности на "УправляващаПроменлива"





Но този стил на програмиране, когато един и същи бутон се използва за различни неща не е за препоръчване[:D][?][?][?][?][?]