• Registered: 2015-02-24
  • Posts: 17

Topic: Прошу помощи со скриптом.

Приветствую! Прошу помочь с такой штукой.

Хочу, чтобы при выделении одного флажка, другой становился некликабельным.
Создаю событие по нажатию.

procedure Orders_EXW_OnClick (Sender: string);
begin
    if Orders.EXW.Checked then Orders.CFR.Enabled :=False;
        else Orders.CFR.Enabled :=True;
end;

Что здесь не так? Компилятор выдает ошибку (";" expected!) Куда тут еще и зачем ставить точки с запятыми? 
Если убираю точки с запятой в конце строк - работает, но это неверно же...  а если я еще флажков добавляю через ; то опят просит точку с запятой. ((

  • Registered: 2014-07-11
  • Posts: 99

Re: Прошу помощи со скриптом.

if Orders.EXW.Checked then Orders.CFR.Enabled :=False; < ---- уберите вот эту точку с запятой

  • Registered: 2015-02-24
  • Posts: 17

Re: Прошу помощи со скриптом.

Leonid wrote:

if Orders.EXW.Checked then Orders.CFR.Enabled :=False; < ---- уберите вот эту точку с запятой

Спасибо! А что делать, если хочу больше объектов добавить?

if Orders.EXW.Checked then Orders.CFR.Enabled :=False; Orders.FOB.Enabled :=False

Так получается?

  • Registered: 2015-02-24
  • Posts: 17

Re: Прошу помощи со скриптом.

procedure Orders_EXW_OnClick (Sender: string);
begin
    if Orders.EXW.Checked then Orders.CFR.Enabled :=False; Orders.FOB.Enabled :=False
        else Orders.CFR.Enabled :=True;
end;

такая конструкция тоже не работает. Не понимаю, как их надо перечислять?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Прошу помощи со скриптом.

Somovn

procedure Orders_EXW_OnClick (Sender: string);
begin
    if Orders.EXW.Checked then 
    begin
       Orders.CFR.Enabled :=False; 
       Orders.FOB.Enabled :=False;
    end else
    begin
       Orders.CFR.Enabled :=True;
    end;
end;
Dmitry.