要为一个窗体设置一幅图作为背景_请大虾指点 找畅销进销存注册码
仓库管理软件版1楼: 想为一个窗体设置一幅图作为背景,怎么做?
诚向高手请教!
等!
Dialogs, ExtDlgs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;
end.
诚向高手请教!
等!
2楼: 简单的方法是Image,麻烦的方法是Canvas 如汽车维修管理软件
3楼: To JungHyunHy:谢谢你。
用Image控件,通过设置属性就可以显示背景图,但这不是我想要的。
我想实现:操作者能自己选择喜欢的图片作为背景图。
4楼: uses Clipbrd;
5楼: 大哥你用 Image1.Picture.Loadfromfile()方法多好啊。
用一个OpenPictureDialog选择你想要的图片。
6楼: To babibean:
具体一点可以吗?有实例最好了。谢谢。
仓库管理软件版7楼: To JungHyunHy:
你说的是。可我不熟悉。
你有实例和代码吗?多谢了。
8楼: 各位大虾:
在OpenPictureDialog.Execute后,选中需要的图片后,想把该子窗体的主窗体的背景设置为该图片,代码是怎样的?
诚请教!
9楼: 二位大虾:
我已经实现了原有的想法。谢谢二位![:I]
10楼: 问题结束了。给二位各5分。
谢谢!
11楼: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;
end.
12楼: To dxiaoliang:
谢谢你!你以前也回答过我的问题。
今天你能再次关注我的问题,真的非常感谢。
你的代码我调试过了,通过。
你的编码习惯非常好。 如畅销进销存注册码