| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Событие в дельфи [D7, XP]
MIXER © (2006-01-20 16:59:00)Здрасте Все.Простите если повторяюсь или слишком глупый вопрос,но в литературе четкого ответа не нашел.Вообщем так:можно ли написать код на пример
Label1 число Edit1
Label2 число Edit2
Label3 сумма
и без Button1 ,переключателей .лучше с KEYpress
спасибо
MIXER (2006-01-20 23:07:00) [1]интересный ход спасибо
begin...end (2006-01-20 17:22:00) [2]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;
umbra (2006-01-20 17:14:00) [3]конкретнее, пожалуйста, что имеем, и что надо получить?
Digitman (2006-01-20 17:02:00) [4]
> можно ли написать код на пример
Этот код на какомязыке программирования ?
> без Button1 ,переключателей .лучше с KEYpress
Прожуй, продумай и повтори вопрос.
Пока нишута не понятно ..
| |
