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

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]
const
dURL=2;
Хотя можно было вообще убрать из процедуры эту переменную.
 

mirzo20490

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

tihiy_don

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

mirzo20490

Новичок
содержимое процедуры InitializeWizard данного скрипта перенесите в ваш скрипт.
Спасибо, ошибки больше нет, но отображения ссылки тоже нет
1684416729778.png

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