zoukankan      html  css  js  c++  java
  • 学习使用资源文件[3] 用 Image 显示资源中的图片


    首先编辑 rc 文件如下(假定图片文件放在程序目录下的 img 文件夹下):
    bmp1 BITMAP img\bmpFile1.bmp
    bmp2 BITMAP img\bmpFile2.bmp

    或者:
    bmp1,BITMAP,img\bmpFile1.bmp
    bmp2,BITMAP,img\bmpFile2.bmp

    然后在窗体上添加一个 Image、两个 Button, 代码如下:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Image1: TImage;
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Image1.AutoSize := True;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Image1.Picture.Bitmap.Handle := LoadBitmap(HInstance, 'bmp1');
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'bmp2');
    end;
    
    end.
    
    //效果图:


  • 相关阅读:
    小白安装使用Redis
    Mysql的Sql语句优化
    maximo入门----用户使用提要
    时不时刷刷BOSS 看看技术需求
    2019.7.10整理
    docker使用入门
    docker之windows安装&centOS安装
    HashTable学习
    Hashmap学习
    红黑树学习
  • 原文地址:https://www.cnblogs.com/del/p/1068617.html
Copyright © 2011-2022 走看看