【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“BkForm.pas”一文,供大家参考学习
unit BkForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormResize(Sender: TObject);
private
bk:TBitmap;
procedure WMPaint(var msg:TWMPAINT);Message WM_PAINT;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMPaint(var msg:TWMPAINT);
begin
inherited;
StretchBlt(canvas.Handle,0,0,width,height,bk.Canvas.Handle,0,0,bk.Width,bk.Height,srccopy);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bk:=TBitmap.Create;
bk.LoadFromFile('bk.bmp');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bk.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
sendmessage(self.Handle,WM_Paint,0,0);
end;
end.
上一篇:
DisableIEToolbarDlg.cpp
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施