Вопрос по Delphi7

[-ushёl-]

Нужна функция для обработки кнопки двойного назначения,подскажите как осуществить это.
Задали л.р.,прилагается текст и снимки работы,немогу сделать работу подскажите как можно создать программу.Снимок прилагается

[Stilet]

кнопки двойного назначения

Если я правильно понял тебе нужен один обработчик на несколько кнопок.

Procedure Tform1.Button1Click(...
begin
 if sender=Button1 then begin Нажата первая end;
 if sender=Button2 then begin Нажата вторая end;

Понял смысл?

[ОДИНОЧЕСТВО В СЕТИ]

ну а если я правильно поняла

procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.tag:=button1.tag+1;
  case button1.tag of
  1: begin {.....действия при первом нажатии};end;
  2:begin
    {...действия при втором нажатии};

    button1.Tag:=0;end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//...
button1.Tag:=0;
//....
end;

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

Как видите ничего сложного! Код выше

[-ushёl-]

по заданию ёще даётся подсказка:
Организовать смену надписей на кнопке несложно (BitBtn1.Caption := 'новое название'), го-раздо сложнее запрограммировать кнопку так, чтобы при первом нажатии выполнялись одна последовательность действий, а при втором нажатии – другая. Рекомендуется на одном месте создать ДВЕ кнопки: BitBtn1 и BitBtn2. Вторую сделать скрытой (свойство Visible := False).
Я теряюсь с этим ide,год назад поверхностно изучал pascal и уже практически всё забыл,а тут вот теперь Дельфи пошло,подскажите плз

[Anatole]

Вам же ОДИНОЧЕСТВО В СЕТИ уже подсказала: используйте свойство Tag кнопки. Изменяйте его при первом нажатии на одно значение, а при втором на второе. Анализируя его в обработчике события вы всегда можете определть, то каклй раз нажата кнопка и в соответствии с этим поменять как свойство Teg, так и Caption

[-ushёl-]

Нет,мне нужно два обработчика на две кнопки,но вторая кнопка должна быт скрыта пока происходит ввод для 1-го значения,затем вступает в работу скрытая кнопка(на ней должно быть "написано" равно),после её нажатия вычисляется результат

[KREGI]

BitBtn1.Visible:=true;
BitBtn2.Visible:=False;

Вставьте куда Вам надо...

[-ushёl-]

Спасибо большое!В задании оказалось всё гороаздо проще,уже просто были даны готовые сборки кодов функций нужно было только оформить фэйс проги и установить онклик в обработчике...=) а я тут ломал голову и вас всех напряг