ooieueioo的部落格

//LOGO
procedure LblOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.i-mobile.com.tw/www_i-mobile_com_tw/files/orgweb/index.htm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

function InitializeSetup(): Boolean;
begin
//InitGifCtrl();
//InitWebCtrl();
Result := True;
end;

procedure InitializeWizard();
var
Img: TBitmapImage;
Lbl: TLabel;
Lbl2: TNewStaticText;
LOGOWND, WEBWND: HWND;
begin

ExtractTemporaryFile('Logo.bmp');
Img := TBitmapImage.Create(WizardForm);
Img.SetBounds(ScaleX(0), ScaleY(120), 80, 31);
Img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
Img.Parent := WizardForm.WelcomeLabel2;
Lbl := TLabel.Create(WizardForm);
Lbl.Parent := WizardForm.WelcomeLabel2;
Lbl.AutoSize := False;
Lbl.SetBounds(Img.Left, Img.Top, 80, 31);
Lbl.OnClick := @LblOnClick;
Lbl.Cursor := crHand;
Lbl.Transparent := True;
Lbl.Hint := 'http://www.i-mobile.com.tw/www_i-mobile_com_tw/files/orgweb/index.htm';
Lbl.ShowHint := True;
end;

值得注意的是Img.SetBounds這邊，主要是設定IMG大小

然而Lbl.SetBounds這邊是設定Lable大小

資料來源:

http://baoku.yunduan.cn/d/artitem/2949/1/9/0/151/

http://restools.hanzify.org/