Событие в дельфи

← →
MIXER (2006-01-20 16:59) [0]

Здрасте Все.Простите если повторяюсь или слишком глупый вопрос,но в литературе четкого ответа не нашел.Вообщем так:можно ли написать код на пример
Label1 число Edit1
Label2 число Edit2
Label3 сумма
и без Button1 ,переключателей .лучше с KEYpress
спасибо

← →
Digitman © (2006-01-20 17:02) [1]

> можно ли написать код на пример

Этот код на каком языке программирования ?

> без Button1 ,переключателей .лучше с KEYpress

Прожуй, продумай и повтори вопрос.

Пока нишута не понятно ..

← →
umbra © (2006-01-20 17:14) [2]

конкретнее, пожалуйста, что имеем, и что надо получить?

← →
begin...end © (2006-01-20 17:22) [3]

procedure TForm1.OnChangeEdit(Sender: TObject);
var
R1, R2: Extended;
begin
if TryStrToFloat(Edit1.Text, R1) and TryStrToFloat(Edit2.Text, R2) then
Label3.Caption := FloatToStr(R1 * R2)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnChange := OnChangeEdit;
Edit2.OnChange := OnChangeEdit;
end;

← →
MIXER (2006-01-20 23:07) [4]

интересный ход спасибо

Событие в дельфи Найти похожие ветки