ещё калькулятор =)

[ex.cluz]

Можно в текущем делать проверки.
Кстати, посмотрел образец, там, немного по другому сделано (там мигает до тех пор, пока не нажмешь на какую-нибудь кнопку, а в моем примере цвет меняется 16 раз).
Помочь переделать или сама справишься?

[FieStik]

Сообщение от ex.cluz

Можно в текущем делать проверки.
Кстати, посмотрел образец, там, немного по другому сделано (там мигает до тех пор, пока не нажмешь на какую-нибудь кнопку, а в моем примере цвет меняется 16 раз).
Помочь переделать или сама справишься?

щас попробую сама.

[ex.cluz]

Давай сама, а потом сверишься

Меняешь тип одной переменной и создаешь другую (тоже глобальную):

FlashIteration: boolean;
ErrorColor: TColor;

И меняешь в обработчике OnTimer:

begin
  if not FlashIteration then begin Timer1.Enabled:=false; Exit; end;
  if Label.Font.Color=ErrorColor then Label.Font.Color:=clBlack 
  else Label.Font.Color:=ErrorColor;
end;

А в OnCreate формы:

FlashIteration:=false;

Теперь, когда должна возникнуть ошибка надо присваивать переменной ErrorColor любой цвет.
Например:

ErrorColor:=clRed;
FlashIteration:=true;
Timer1.Enabled:=true;

А при нажатии на любую кнопку (чтоб мигание прекратилось) нужно дописать строчку:

FlashIteration:=false;

Все просто

[FieStik]

ну я сделала по-другому, что-бы прикратить мигание просто дописала
if i<50 then
vvod.Font.Color:=clTeal;=) т.е если нажата любая кнопка(i-это тег), то цвет меняется на стандартный..разные цвета щас буду делать..
ex.cluz ещё 1 прозьба.. у меня возникли проблемы проблемы с опирацией вида 5-5-2, с плюсом работает, с минусом нет, там нужно какой-то другой подход брать, часа 2 сидела мысли в голове перебрала и перепробывала, невыходит , можешь посмотреть?

[ex.cluz]

Набираю 5-5-2= получаю ответ: -2.
Все работает! В чем проблема?

[FieStik]

Сообщение от ex.cluz

Набираю 5-5-2= получаю ответ: -2.
Все работает! В чем проблема?

после 5-5-2 попробуй написать ещё -4, ответ не отображается. Проблема возникает когда в строке "0". Там где "-" я if A:=0.... Как я поняла в этом ошибка, но без этой проверки никак.

[ex.cluz]

Вечером, если будет время - посмотрю.

А на вскидку: почему б тебе после нажатия на клавишу со знаком не прописать, что б "нажималась" клавиша "="?
Типа: Button_RavnoClick(Sender);
(скажу сразу, что код в твоем проекте вообще не смотрел, поэтому то, что я тебе предложил, может быть и невозможным в силу некоторых причин).

[FieStik]

Сообщение от ex.cluz

Вечером, если будет время - посмотрю.

А на вскидку: почему б тебе после нажатия на клавишу со знаком не прописать, что б "нажималась" клавиша "="?
Типа: Button_RavnoClick(Sender);
(скажу сразу, что код в твоем проекте вообще не смотрел, поэтому то, что я тебе предложил, может быть и невозможным в силу некоторых причин).

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

[_-Re@l-_]

1. Сразу бы и сказали, что из третьего поста, а то я из первого качал.
2. Если тебе, FieStik, нужно в своём калькуляторе реализовать ввод в лог чисел с операцией, и времени в которое была совершена операция, то можно сделать так:при нажатии кнопки с арифметическим действием создавать строковую переменную, присваивать и значение едита, прицепить знак действия, затем после нажатия равно прицеплять второе число , знак равно и ответ.
3. Если не ошибаюсь, время определяется так:

procedure TForm1.FormCreate(Sender: TObject);
var x:TDateTime;
begin
     x:=Now;
     Edit1.Text:=DateTimeToStr(x);
end;

[_-Re@l-_]

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

Когда я делал калькулятор, я делал обработчик для каждой кнопки отдельно(правда, для всех кнопок кроме "=" и кнопок тригонометрических функций, обработчики состояли из 4 строк)