Вопрос Кликабельная ссылка в Инсталятор

[DEAD KING]

Как добавить кликабельную ссылку в свой инсталятор, желательно чтоб её можно было переместить, уменьшить либо увеличить ?

 

[tihiy_don]

///////////////////////////////////////Ссылка///////////////////////////////////////////////////////////////////////////
procedure URLLabelClick(Sender: TObject);                                                                             //
var                                                                                                                   //
  ErrorCode:integer;                                                                                                  //
begin                                                                                                                 //
  ShellExec('open','https://test.ru','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);                          //
end;                                                                                                                  //
procedure ClickURL();                                                                                                 //
begin                                                                                                                 //
  URLLabel:=TLabel.Create(WizardForm);                                                                                //
  with URLLabel do begin                                                                                              //
    Top:=ScaleY(335)-dURL;                                                                                            //
    Left:=ScaleX(25)-dURL;                                                                                            //
    Caption:='https://test.ru';                                                                                //
    AutoSize:=True;                                                                                                   //
    Parent:=WizardForm;                                                                                               //
    Cursor:=crHand;                                                                                                   //
    Transparent:=True;                                                                                                //
    Font.Color:=$001330B7;                                                                                             //
    Font.Size:=10;                                                                                                     //
    //Font.Style:=Font.Style+[fsBold] + [fsUnderline];
    Font.Style:=Font.Style + [fsUnderline];                                                                                 //
    BringToFront;                                                                                                     //
    OnClick:=@URLLabelClick;                                                                                          //                                                                                 //
  end;                                                                                                                //
end;                                                                                                                  //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure InitializeWizard();
begin
  ClickURL();
end;

 

[DEAD KING]

///////////////////////////////////////Ссылка///////////////////////////////////////////////////////////////////////////
procedure URLLabelClick(Sender: TObject);                                                                             //
var                                                                                                                   //
  ErrorCode:integer;                                                                                                  //
begin                                                                                                                 //
  ShellExec('open','https://test.ru','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);                          //
end;                                                                                                                  //
procedure ClickURL();                                                                                                 //
begin                                                                                                                 //
  URLLabel:=TLabel.Create(WizardForm);                                                                                //
  with URLLabel do begin                                                                                              //
    Top:=ScaleY(335)-dURL;                                                                                            //
    Left:=ScaleX(25)-dURL;                                                                                            //
    Caption:='https://test.ru';                                                                                //
    AutoSize:=True;                                                                                                   //
    Parent:=WizardForm;                                                                                               //
    Cursor:=crHand;                                                                                                   //
    Transparent:=True;                                                                                                //
    Font.Color:=$001330B7;                                                                                             //
    Font.Size:=10;                                                                                                     //
    //Font.Style:=Font.Style+[fsBold] + [fsUnderline];
    Font.Style:=Font.Style + [fsUnderline];                                                                                 //
    BringToFront;                                                                                                     //
    OnClick:=@URLLabelClick;                                                                                          //                                                                                 //
  end;                                                                                                                //
end;                                                                                                                  //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure InitializeWizard();
begin
  ClickURL();
end;

Ошибка компиляций ( Unkown identifier "URLLabel" )

 

[tihiy_don]

[code]
var
URLLabel,URLLabelShadow:TLabel;

 

[DEAD KING]

[code]
var
URLLabel,URLLabelShadow:TLabel;

Unkown identifier "dURL"

 

[tihiy_don]

[code]
const
dURL=2;

Хотя можно было вообще убрать из процедуры эту переменную.

 

[Crachlow]

Unkown identifier "dURL"

 

[DEAD KING]

Протестю

 

[mirzo20490]

День добрый, я взял за основу первого инсталлятора Steam Compact
Пытаясь прикрутить ваш скрипт, у меня выдаёт ошибку

Я так понял, что всё дело в том, что такая же строчка уже есть у меня в исходнике. Пытался удалить одну из них, не помогло. Как можно решить эту проблему, связанную с одинаковыми значениями в исходнике и скриптах, которые выкладывают как пример на форуме
Ps. по отдельности всё работает

 

[tihiy_don]

День добрый, я взял за основу первого инсталлятора Steam Compact
Пытаясь прикрутить ваш скрипт, у меня выдаёт ошибку
Посмотреть вложение 7634
Я так понял, что всё дело в том, что такая же строчка уже есть у меня в исходнике. Пытался удалить одну из них, не помогло. Как можно решить эту проблему, связанную с одинаковыми значениями в исходнике и скриптах, которые выкладывают как пример на форуме
Ps. по отдельности всё работает

содержимое процедуры InitializeWizard данного скрипта перенесите в аналогичную процедуру вашего скрипта.

 

[mirzo20490]

содержимое процедуры InitializeWizard данного скрипта перенесите в ваш скрипт.

Спасибо, ошибки больше нет, но отображения ссылки тоже нет


Можно ли удалить это приветствие и заменить его ссылкой? в форме кнопки по типу "далее" или "отмена"

 

[tihiy_don]

Спасибо, ошибки больше нет, но отображения ссылки тоже нет
Посмотреть вложение 7635

так всё остальное-то вы не перенесли чтоли? Я лишь говорил касаемо InitializeWizard.

 

[mirzo20490]

так всё остальное-то вы не перенесли чтоли? Я лишь говорил касаемо InitializeWizard.

Конечно перенёс, может быть приоритет "приветствия" стоит выше чем ссылка? Поэтому её не видно?

 

[tihiy_don]

@mirzo20490, переместите текст ссылки в другое место и проверьте.

 

[Crachlow]

Конечно перенёс, может быть приоритет "приветствия" стоит выше чем ссылка? Поэтому её не видно?