unit2.pas.~24~

来自「Quick Click Quick Click Quick Click Quic」· ~24~ 代码 · 共 68 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    p1x: TSpinEdit;
    p1y: TSpinEdit;
    p2x: TSpinEdit;
    p2y: TSpinEdit;
    p3x: TSpinEdit;
    p3y: TSpinEdit;
    p4x: TSpinEdit;
    p4y: TSpinEdit;
    p5x: TSpinEdit;
    p5y: TSpinEdit;
    z1x: TSpinEdit;
    z1y: TSpinEdit;
    z2x: TSpinEdit;
    z2y: TSpinEdit;
    Label8: TLabel;
    Label9: TLabel;
    LosowoCB: TCheckBox;
    Label10: TLabel;
    Label11: TLabel;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure NetiaClick(I:byte);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
//

end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
i,s:integer;
p:tpoint;
begin
getcursorpos(p);
form2.Caption:='X:'+IntToStr(P.x)+ ' Y:'+IntToStr(P.y)+' Copyright