|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Спасибо NumLock
Хотя вышло несколько иначе Код:
procedure TFrmProfile.Calc(Sender: TObject); begin LblResult.Caption:= FloatToStrF(CmbMetters.Value,ffFixed,8,2); end; Код:
procedure TCmbMetters.Click; begin inherited Click; case ItemIndex of 0: FValue:= 6.76 ; 1: FValue:= 6.78; 2: FValue:= 4.23; end; (Parent as TFrmProfile).Calc(Self); end; |