unit1.~pas

最简单的改变窗体背景的小程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    LabeledEdit1: TLabeledEdit;
    ApplicationEvents1: TApplicationEvents;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   
procedure TForm1.Button1Click(Sender: TObject);
var
   i,j:integer;

begin
    for i:=0 to form1.Height do
      for j:=0 to form1.Width do
       form1.Canvas.Pixels[j,i]:=($100*i)*random(256);//500);//*;
       opendialog1.Execute ;  waitforsingleobject();form1.ap
end;
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
       button1.
end;

end.