| Class TTMainForm (unit mainForm) |
TForm
| Constructors |
| Functions |
procedure btListClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure RichEditWithOle1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
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;