Topic: Почему скрипт не отрабатывает?

procedure courses_akad_OnChange (Sender: string; var Cancel: boolean);
begin
courses.astr.Value := courses.akad.Value / 60 * 45
end;

procedure courses_astr_OnChange (Sender: string; var Cancel: boolean);
begin
courses.astr.Value := courses.astr.Value / 45 * 60
end;

Есть 2 текстовых поля (академические часы) (астрономические часы)

Хотелось бы при вводе в текстовое поле академических часов автоматически прописывались астрономические и наоборот

Re: Почему скрипт не отрабатывает?

должно работать, приложите пожалуйста ваш проект.

Dmitry.

Re: Почему скрипт не отрабатывает?

DriveSoft wrote:

должно работать, приложите пожалуйста ваш проект.

Re: Почему скрипт не отрабатывает?

Как правильно из этого

procedure order_Button3_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

procedure order_Button9_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

procedure order_Button5_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

Сделать примерно это

procedure order_Button3_OnAfterClick (Sender: string);
procedure order_Button9_OnAfterClick (Sender: string);
procedure order_Button5_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

Re: Почему скрипт не отрабатывает?

spectre
К сожалению не могу открыть ваш архив, пишет что файл поврежден.


Как правильно из этого

Вы можете использовать одно событие для всех кнопок, просто задайте им одно и тоже имя события  на вкладке "Свойства компонента > События", т.е. на против OnAfterClick напишите order_Button3_OnAfterClick для всех трех кнопок.

Dmitry.

6 (edited by spectre 2019-07-09 14:23:11)

Re: Почему скрипт не отрабатывает?

DriveSoft wrote:

spectre
К сожалению не могу открыть ваш архив, пишет что файл поврежден.


Как правильно из этого

Вы можете использовать одно событие для всех кнопок, просто задайте им одно и тоже имя события  на вкладке "Свойства компонента > События", т.е. на против OnAfterClick напишите order_Button3_OnAfterClick для всех трех кнопок.


за второе решение спасибо! все отлично работает

а файл проекта перепаковал и перезалил (может проблема в том что мой проект на RTL языке)

Re: Почему скрипт не отрабатывает?

spectre
Увы но WinRAR пишет что архив поврежден.

Dmitry.