Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c