www.pudn.com > Ϳѻ_Delphi.rar > Unit1.pas

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus; 
 
type 
  TForm1 = class(TForm) 
    ColorDialog1: TColorDialog; 
    PopupMenu1: TPopupMenu; 
    N1: TMenuItem; 
    N2: TMenuItem; 
    N3: TMenuItem; 
    procedure FormCreate(Sender: TObject); 
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure FormKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Brush.Style :=bsClear; 
  Tag:=0;  //ʹÓÃFormµÄTagÊôÐÔ×÷±ê־λ 
end; 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  Tag:=1; //ÖÃλ 
  Canvas.MoveTo(X,Y); //½«PenµÄλÖÃÒƵ½µ±Ç° 
  //È¡Ëæ»úÊý 
  Randomize; 
  Canvas.Pen.Width := Random(30);//ÉèÖû­±ÊµÄ¿í¶È 
  Canvas.Pen.Color :=RGB(Random(255),Random(255),Random(255));//ÉèÖû­±ÊµÄÑÕÉ« 
end; 
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if Tag=1 then 
  begin 
    Canvas.LineTo(x,y);//»­Ïß 
  end; 
end; 
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  Tag:=0; //±ê־λ 
end; 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if key=27 then //ÅжÏÈç¹û°´ÏÂESC¼ü¾ÍÍ˳ö³ÌÐò 
  begin 
  showmessage('   www417ÒµÓàÖ®×÷  '#13#10'       2002.10.17'); 
  Close() 
  end; 
end; 
 
end.