Цитата TheLeon:
кликабельный текст "сделано в фирме..." (при клике открывался браузер) »
|
Код:
var
Label1: TLabel;
procedure Label1Click(Sender: TObject);
var ErrorCode: Integer;
begin
ShellExec('open','http://www.innosetup.com','', '', SW_SHOW, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
begin
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm;
Caption := 'Developed by Leon and OSzone.net';
SetBounds(ScaleX(15),ScaleY(338),ScaleX(132),ScaleY(130));
Font.Size := 7;
OnClick:=@Label1Click;
Font.Color:=clBlue;
Enabled:=True;
Cursor:=crHand;
end;
end;
Код:
var
Image1: TBitmapImage;
procedure Image1Click(Sender: TObject);
var ErrorCode: Integer;
begin
ShellExec('open','http://www.innosetup.com','', '', SW_SHOW, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
begin
Image1 := TBitmapImage.Create(WizardForm);
with Image1 do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0),ScaleY(70),ScaleX(416),ScaleY(170));
ExtractTemporaryFile('BMP.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\BMP.bmp'));
OnClick:=@Image1Click;
Enabled:=True;
Cursor:=crHand;
end;
end;