[tihon_65]

Если написал обработку событий для нескольких кнопок.Теперь надо добавить еще одну ,но обработка для этой кнопки должна быть раньше другой.Как правильно ее добавить.

[Aristarh Dark]

Повнятней объясни вопрос. Или код приведи. Иначе не понятно, что тебе нужно. Абастрактно могу сказать, что события кнопок есть реакция на действия с оными. Т.е. если действие с кнопкой которую ты добавил последней будет произведено раньше чем с остальными (например нажатие Click), то и событие (OnClick) произойдет раньше.

[tihon_65]

Код:

procedure TForm6.KvadrClick(Sender: TObject);
begin
 a := StrToFloat(Edit1.Text) ;
 mode := 5 ;
 Edit1.Text := '0' ;
end;


procedure TForm6.RavnoClick(Sender: TObject);
begin
case mode of
1 : begin
b := StrToFloat(Edit1.Text) ;
c := a + b ;
Edit1.Text := FloatToStr (c);
end;
2 : begin
b := StrToFloat(Edit1.Text) ;
c := a - b ;
Edit1.Text := FloatToStr (c);
end;
3 : begin
b := StrToFloat(Edit1.Text) ;
c := a * b ;
Edit1.Text := FloatToStr (c);
end;
4 : begin
b := StrToFloat(Edit1.Text) ;
begin
if b<>0 then
begin
c := a / b ;
Edit1.Text := FloatToStr (c);
end;
end;
end;
5 : begin
b := StrToFloat(Edit1.Text) ;
c := Power(a,b) ;
Edit1.Text := FloatToStr (c);
end;
end;
end;
end.

.Здесь последним обрабатывается возведение в квадрат потом равно.Надо добавить еще кнопку степень.Но она будет последней.И обработка после равно ,а надо до него.Пробовал в ручную записать- не правильно работает.

[Zonder]

Помоему ты несовсем правильно понимаешь само понятие "События". Событие представляет из себя свойство процедурного типа. Процедура будет выполняться только после наступления события (в данном случае после нажатия на кнопку). В какой последовательности ты будешь нажимать на кнопки в той и будут выполняться процедуры. Последовательность процедур в тексте программы не имеет значения. Помоему так.