u00201.pas

来自「Delphi编程五大妙招源程序」· PAS 代码 · 共 67 行

unit U00201;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Splitter1: TSplitter;
    Memo1: TMemo;
    Splitter2: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('00201.bmp') ;
  Memo1.Lines.LoadFromFile('00201.txt') ;
end;

PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
Begin
  brush.style:=bsClear;
  Inherited;
End;



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
  Tempstr : String ;
  MyPoint: TPoint;
  ScPoint: TPoint;
begin
  TempStr := 'Form X='+IntToStr(X)+'  Form Y='+IntToStr(Y);
  Caption := TempStr ;

  MyPoint.x:=X;
  MyPoint.y:=Y;
  ScPoint:=ClientToScreen(MyPoint);

  TempStr := 'Screen X='+IntToStr(ScPoint.x)+' Screen Y='+IntToStr(ScPoint.y);
  Caption := Caption +'  '+TempStr ;

end;

end.