drag.~pas

关于DEPHI7.0的信息管理系统源代码

unit drag;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Timer1: TTimer;
    Label3: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //showmessage('你按了'+inttostr(key)+'键');
end;

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbLeft then
    (Sender as TEdit).BeginDrag(False);   
end;

procedure TForm1.Edit1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
    if Target <> nil then
        showmessage('成功完成一次拖曳操作');
end;

procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source is TEdit) then
   Accept := True;
end;

procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Sender is TMemo) and (Source is TEdit) then
    (Sender as TMemo).Lines.Add( ( Source as TEdit).Text );
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label3.Left < -Label3.Width then
     Label3.Left := Form1.Width + 1
  else Label3.Left := Label3.Left - 5;
end;

end.