S samandar Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-14 #1 我觉得窗体的背景太过单调,想拿一个有图案的图片来做窗体的背景 不知是否可以
小 小菜 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-14 #4 简单啊,放一个image, 设align为client, Loading 你想用的图片
M moodboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-14 #5 uses jpeg; var AJPEG:TJPEGImage; x,y:integer; procedure TForm1.FormCreate(Sender: TObject); begin AJpeg:=TJpegImage.Create; AJpeg.LoadFromFile('beiging.jpg'); end; procedure TForm1.FormPaint(Sender: TObject); begin x:=0; y:=0; //x,y由你自己定 Form1.Canvas.Draw(x,y,AJpeg); end; OK?OK!
uses jpeg; var AJPEG:TJPEGImage; x,y:integer; procedure TForm1.FormCreate(Sender: TObject); begin AJpeg:=TJpegImage.Create; AJpeg.LoadFromFile('beiging.jpg'); end; procedure TForm1.FormPaint(Sender: TObject); begin x:=0; y:=0; //x,y由你自己定 Form1.Canvas.Draw(x,y,AJpeg); end; OK?OK!
M moodboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-14 #6 忘说一声,把你要作背景的.JPG图片放在你保存程序文件的文件夹里。 这种方法不影响你Form上其他的控件。
H hamsoft Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-15 #8 放一个image, 设align为client, Loading 你想用的图片
Q QSmile Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-26 #13 把图片放到资源文件里 要窗体 Create 调出来 在 Paint 时画在背景上。 在 Free 时 free OK?