Вычисления по условию. Событие onChange

[Квэнди]

Сообщение от Наташа

а в этом случаи что?

Обрабатывайте не onchange а onclick на кнопке

[Наташа]

а можно я еще понаглею и попрашу Вас прислать мне код этого проекта. пожалуйста. спосибо зарание

[zetrix]

Специально для наглых
вот код:

unit Unit1;

interface

uses
  Windows, Forms, StdCtrls, ExtCtrls, Classes, SysUtils, Controls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
 1:LabeledEdit3.Text:=floattostr(sin(strtofloat(LabeledEdit1.Text)));
 2:LabeledEdit3.Text:=floattostr(cos(strtofloat(LabeledEdit1.Text)));
 3:LabeledEdit3.Text:=floattostr(sin(strtofloat(LabeledEdit1.Text))/cos(strtofloat(LabeledEdit1.Text)));
 4:LabeledEdit3.Text:=floattostr(cos(strtofloat(LabeledEdit1.Text))/sin(strtofloat(LabeledEdit1.Text)));
 5:LabeledEdit3.Text:=floattostr(strtofloat(LabeledEdit1.Text)+strtofloat(LabeledEdit2.Text));
 6:LabeledEdit3.Text:=floattostr(strtofloat(LabeledEdit1.Text)-strtofloat(LabeledEdit2.Text));
 7:LabeledEdit3.Text:=floattostr(strtofloat(LabeledEdit1.Text)/strtofloat(LabeledEdit2.Text));
 8:LabeledEdit3.Text:=floattostr(strtofloat(LabeledEdit1.Text)*strtofloat(LabeledEdit2.Text));
end;
end;

end.

Вот проект:

[Наташа]

БОЛЬШОЕ ВАМ СПОСИБО!!! ПРОСТО ОГРОМНОЕ