Class TTMainForm (unit mainForm) |
Inherits from
TForm
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);
btList : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button5 : TButton;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Memo1 : TMemo;
RichEditWithOle1 : TRichEditWithOle;
RichEditWithOle2 : TRichEditWithOle;
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);
btList : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button5 : TButton;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Memo1 : TMemo;
RichEditWithOle1 : TRichEditWithOle;
RichEditWithOle2 : TRichEditWithOle;