盒子论坛 v2.1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Panel1: TPanel;
    Memo1: TMemo;
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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.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 as tmemo) and (source is tedit) then
  (sender as tmemo).lines.add((source.tedit).text);
end;

end.

提示了一些错误，请高手帮帮忙，告诉我怎么改才可运行，如果可以的话告诉我错在哪里
----------------------------------------------
-

作者：

msqsniper (常省电)	★☆☆☆☆	-
	盒子活跃会员

2003/9/13 9:59:31

1楼：

顶。。。。。。。。。。。。。。
----------------------------------------------
-

信息

登陆以后才能回复