Cách ẩn bảng điều khiển chính và hiển thị hình ảnh trên toàn bộ trang?

Question

Tôi đã tạo trang chào mừng tùy chỉnh với hình ảnh trên đó nhưng bảng điều khiển chính ở trên cùng vẫn được hiển thị. Đối với những gì tôi muốn đạt được hình ảnh xem dưới đây:

Đây là mã:

[Code] 
procedure InitializeWizard; 
var 
    BitmapFileName: string; 
    BitmapImage: TBitmapImage; 
    WelcomePage: TWizardPage; 
begin 
    WelcomePage := CreateCustomPage(wpWelcome, '', '');  

    BitmapFileName := ExpandConstant('{tmp}\DataNova_Logo.bmp'); 
    ExtractTemporaryFile(ExtractFileName(BitmapFileName)); 

    BitmapImage := TBitmapImage.Create(WelcomePage); 
    BitmapImage.AutoSize := True; 
    BitmapImage.Bitmap.LoadFromFile(BitmapFileName); 
    BitmapImage.Cursor := crHand; 
    BitmapImage.Left := 10; 
    BitmapImage.Top := 10; 
    BitmapImage.Parent := WelcomePage.Surface; 
end; 

Làm thế nào để hiển thị hình ảnh trên toàn bộ trang với bảng điều khiển chính ẩn?

Answer 1

Bạn cần ẩn các thành phần Bevel1, MainPanel và InnerNotebook khi bạn chuyển sang trang chào mừng và hiển thị lại khi bạn rời khỏi trang đó. Ngược lại, hình ảnh bạn cần hiển thị chỉ khi bạn hiển thị trang chào mừng của mình vì nó bao gồm toàn bộ khu vực trang. Vì vậy, mã sau sẽ thực hiện thủ thuật:

[Code] 
var 
    WelcomePageID: Integer; 
    BitmapImage: TBitmapImage; 

procedure InitializeWizard; 
var 
    WelcomePage: TWizardPage; 
begin 
    WelcomePage := CreateCustomPage(wpWelcome, '', ''); 
    WelcomePageID := WelcomePage.ID; 
    BitmapImage := TBitmapImage.Create(WizardForm); 
    BitmapImage.Bitmap.LoadFromFile('C:\Image.bmp'); 
    BitmapImage.Top := 0; 
    BitmapImage.Left := 0; 
    BitmapImage.AutoSize := True; 
    BitmapImage.Cursor := crHand; 
    BitmapImage.Visible := False; 
    BitmapImage.Parent := WizardForm.InnerPage; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    BitmapImage.Visible := CurPageID = WelcomePageID; 
    WizardForm.Bevel1.Visible := CurPageID <> WelcomePageID; 
    WizardForm.MainPanel.Visible := CurPageID <> WelcomePageID; 
    WizardForm.InnerNotebook.Visible := CurPageID <> WelcomePageID; 
end;