Image Delphi 7-PNG图像未显示

我使用的是Delphi7 Pro。我已经在我的项目中安装了PNG组件，但每当我将PNG图像加载到Image1组件中时，应用程序就会启动，但其主要形式是不可见的。如果加载JPEG或位图文件，则会显示表单。以下是我在表单构造函数中使用的代码：

procedure TFMain.FormCreate(Sender: TObject);
var
  regn, tmpRegn, x, y: integer;
  nullClr: TColor;
  Settings: TInifile;
begin
  FMain.Brush.Bitmap := Image1.Picture.Bitmap;
  nullClr := Image1.Picture.Bitmap.Canvas.Pixels[0, 0];
  regn := CreateRectRgn(0, 0, Image1.Picture.Graphic.Width, Image1.Picture.Graphic.Height);
  for x := 1 to Image1.Picture.Graphic.Width do
    for y := 1 to Image1.Picture.Graphic.Height do
      if Image1.Picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(FMain.Handle, regn, True);
end;

为什么会这样？我应该更改什么以便在Image1中使用PNG图像

整个代码：

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, Buttons, IniFiles, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,
  Wininet, ImgBtn, ComCtrls, ShlObj, ComObj, ActiveX, jpeg;


type
  TFMain = class(TForm)
    Gauge1: TGauge;
    Gauge2: TGauge;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ImgBtn1: TImgBtn;
    ImgBtn2: TImgBtn;
    ImgBtn3: TImgBtn;
    ImgBtn4: TImgBtn;
    Panel1: TPanel;
    WebBrowser1: TWebBrowser;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label4: TLabel;
    ImgBtn5: TImgBtn;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ImgBtn4Click(Sender: TObject);
    procedure ImgBtn3Click(Sender: TObject);
    procedure ImgBtn2Click(Sender: TObject);
    procedure ImgBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ImgBtn5Click(Sender: TObject);
    procedure WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
    procedure Timer1Timer(Sender: TObject);
    procedure UpdateRevision(Rev: string);
  private
    { Private declarations }
  public
    Draging: Boolean;
    X0, Y0: integer;
  end;

var
  FMain: TFMain;
  USettings : TStrings;

implementation

uses
  Frm2, GetFilesThr, Misc;

{$R *.dfm}

procedure TFmain.UpdateRevision(Rev: string);
var
  Settings: TInifile;
begin
  Settings := TInifile.Create(USettings[0] + '_settings.ini');
  Settings.WriteString('main', 'AtRevision', Rev);
  Settings.Free;
end;


function LoadSettings(): bool;
var
  Settings: TInifile;
begin
  Result := False;
  USettings := TStringlist.Create;
  USettings.Add(GetCurrentDir + '\');

  if(FileExists(USettings[0] + '_settings.ini')) then
  begin
    Settings := TInifile.Create(USettings[0] + '_settings.ini');
    USettings.Add(Settings.ReadString('main', 'NewsUrl', ''));
    USettings.Add(Settings.ReadString('main', 'UpdatesUrl', ''));
    USettings.Add(Settings.ReadString('main', 'LinkName', 'Lineage II'));
    USettings.Add(Settings.ReadString('main', 'Installed', '0'));
    USettings.Add(Settings.ReadString('main', 'CreateBackup', '0'));
    USettings.Add(Settings.ReadString('main', 'AtRevision', '0'));
    USettings.Add(Settings.ReadString('main', 'RunCustom', 'system\l2.exe'));
    Settings.Free;
    Result := True;
  end
end;

// ρξηδΰες πλϋκ νΰ ρεα νΰ πΰαξχεμ ρςξλε
procedure CreateDesktopIcon(ilname, WorkDir, desc : string);
var
  IObj: IUnknown;
  SLink: IShellLink;
  PFile: IPersistFile;
  desk: string;
  lnkpath: WideString;
begin
  if(ilname <> '') then
  begin
    SetLength(desk, MAX_PATH + 1);
    SHGetSpecialFolderPath(0, PAnsiChar(desk), CSIDL_DESKTOPDIRECTORY, False);
    lnkpath:= PChar(desk) + '\' + ilname + '.lnk';
    IObj := CreateComObject(CLSID_ShellLink);
    SLink := IObj as IShellLink;
    PFile := IObj as IPersistFile;

    with SLink do
    begin
      SetDescription(PChar(desc));
      SetPath(PChar(Application.ExeName));
      SetWorkingDirectory(PAnsiChar(WorkDir));
    end;

    PFile.Save(PWChar(WideString(lnkpath)), FALSE);
  end;
end;

procedure TFMain.FormCreate(Sender: TObject);
var
  regn, tmpRegn, x, y: integer;
  nullClr: TColor;
  s_load: bool;
  Settings: TInifile;
begin
  s_load := LoadSettings();
  if (s_load) then
  begin
    if (USettings[4] = '0') then
    begin
      Settings := TInifile.Create(USettings[0] + '_settings.ini');
      Settings.WriteString('main','Installed', '1');
      Settings.Free;
      CreateDesktopIcon(USettings[3], USettings[0], 'Play Lineage II');
    end;
  end
  else
  begin
    FMain.Timer1.Enabled := False;
    ShowMessage('ERROR: _settings.ini Not Found !');
    Application.Terminate; // .close ηδερό νε οπξιδες 
  end;

  // Νΰβξδθμ κπΰρθβξρςό νΰ τξπμσ ...
  FMain.brush.bitmap := Image1.picture.bitmap;
  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width, image1.picture.Graphic.Height);

  for x := 1 to image1.picture.Graphic.Width do
    for y := 1 to image1.picture.Graphic.Height do
      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(FMain.handle, regn, true);
end;

procedure TFMain.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Draging := true;
  x0 := x;
  y0 := y;
end;

procedure TFMain.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Draging := false;
end;

procedure TFMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Draging then
  begin
    FMain.Left := FMain.Left + X - X0;
    FMain.top := FMain.top + Y - Y0;
  end;
end;

procedure TFMain.ImgBtn4Click(Sender: TObject);
begin
  FMain.Close;
end;

procedure TFMain.ImgBtn3Click(Sender: TObject);
begin
  FMain.Close;
end;

procedure TFMain.ImgBtn2Click(Sender: TObject);
var
  WThread: GFilesThread;
begin
  Label3.Caption := '';
  WThread := GFilesThread.Create(True);
  WThread.FreeOnTerminate := True;
  WThread.UpdatesUrl := USettings[2];
  WThread.ForceCheck := True;
  WThread.CreateBackup := StrToInt(USettings[5]);
  WThread.LocalRevision := StrToInt(USettings[6]);
  WThread.Resume;
end;

procedure TFMain.ImgBtn1Click(Sender: TObject);
begin
  RunApp(USettings[0] + Usettings[7]);
  FMain.Close;
end;

procedure TFMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 USettings.Free;
end;

procedure TFMain.ImgBtn5Click(Sender: TObject);
begin
 FMain.Enabled := False;
 Form1.Show;
end;

procedure TFMain.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
 FMain.Panel1.Visible := True;
 FMain.Image2.Visible := True;
 FMain.Image3.Visible := True;
 FMain.Image4.Visible := True;
end;

procedure TFMain.Timer1Timer(Sender: TObject);
var
  WThread: GFilesThread;
begin
  FMain.Timer1.Enabled := False;
  WebBrowser1.Navigate(USettings[1]);
  Label3.Caption := '';
  WThread := GFilesThread.Create(True);
  WThread.FreeOnTerminate := True;
  WThread.UpdatesUrl := USettings[2];
  WThread.ForceCheck := False;
  WThread.CreateBackup := StrToInt(USettings[5]);
  WThread.LocalRevision := StrToInt(USettings[6]);
  WThread.Resume;
end;

end.

---

请把你的帖子和代码写在这里。把它放在其他地方意味着它不能被搜索，如果外部站点由于某种原因不可用，它就不可用。谢谢。添加了全部代码。我认为我发布的第一个代码有问题。我认为这会使所有的*.png图像不可见或类似的东西。在我看来，任何颜色存在于像素的位置0，0的图像变得透明。这会弄乱png图像。@TLama我没有工作，现在我甚至不能编译它。是否有一种解决方案可以删除使我插入表单中的任何位图图像不可见的过程？您不能访问Image1.Picture.bitmap。它释放图像数据。另外，你知道吗？我相信这会简化你的任务。