Class TTMainForm (unit mainForm)

Inherits from

TForm

Constructors



Functions

procedure btListClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

we do not need the object anymore

procedure Button3Click(Sender: TObject);

we do not need the object anymore

procedure Button6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var effect,keyState:longint; data:IDataObject; begin debug2(self,'Drag over'); data:=nil; keyState:=0; effect:=DROPEFFECT_COPY; case state of dsDragEnter: richEditWithOle1.

procedure FormCreate(Sender: TObject);

not needed

procedure RichEditWithOle1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

do not forget to Release object!!!

procedure RichEditWithOle1GetOleDragFromSource(sender, source: TObject; var oleObject: TDelphiOle);


Properties

Events

Variables

btList : TButton;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Memo1 : TMemo;


RichEditWithOle1 : TRichEditWithOle;


RichEditWithOle2 : TRichEditWithOle;



Constructors


Functions


procedure btListClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

we do not need the object anymore


procedure Button3Click(Sender: TObject);

we do not need the object anymore


procedure Button6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var effect,keyState:longint; data:IDataObject; begin debug2(self,'Drag over'); data:=nil; keyState:=0; effect:=DROPEFFECT_COPY; case state of dsDragEnter: richEditWithOle1.fDropTarget.DragEnter(data,keyState,point(x,y),effect); dsDragMove: richEditWithOle1.fDropTarget.DragOver(keyState,point(x,y),effect); dsDragLeave: richEditWithOle1.fDropTarget.DragLeave; end; end;


procedure FormCreate(Sender: TObject);

not needed


procedure RichEditWithOle1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

do not forget to Release object!!!


procedure RichEditWithOle1GetOleDragFromSource(sender, source: TObject; var oleObject: TDelphiOle);


Properties


Events


Variables


btList : TButton;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Memo1 : TMemo;


RichEditWithOle1 : TRichEditWithOle;


RichEditWithOle2 : TRichEditWithOle;