basic drag and drop implement using SetWindowLongPtr
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef Unit1H
|
|
|
|
|
|
#define Unit1H
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
#include <System.Classes.hpp>
|
|
|
|
|
|
#include <FMX.Controls.hpp>
|
|
|
|
|
|
#include <FMX.Forms.hpp>
|
|
|
|
|
|
#include <FMX.Controls.Presentation.hpp>
|
|
|
|
|
|
#include <FMX.Memo.hpp>
|
|
|
|
|
|
#include <FMX.Memo.Types.hpp>
|
|
|
|
|
|
#include <FMX.ScrollBox.hpp>
|
|
|
|
|
|
#include <FMX.Types.hpp>
|
|
|
|
|
|
#include <FMX.Platform.Win.hpp>
|
|
|
|
|
|
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
class TForm1 : public TForm
|
|
|
|
|
|
{
|
|
|
|
|
|
__published: // IDE <EFBFBD>ŊǗ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD><EFBFBD><EFBFBD>|<EFBFBD>[<EFBFBD>l<EFBFBD><EFBFBD><EFBFBD>g
|
|
|
|
|
|
TMemo *Memo1;
|
|
|
|
|
|
// void __fastcall FormDestroy(TObject *Sender);
|
|
|
|
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
|
|
|
|
private: // <EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>U<EFBFBD>[<EFBFBD>錾
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
public:
|
|
|
|
|
|
|
|
|
|
|
|
//LRESULT __fastcall WndProc<EFBFBD>iHWND<EFBFBD>AhWnd<EFBFBD>AUINT Msg<EFBFBD>AWPARAM wParam<EFBFBD>ALPARAM lParam<EFBFBD>j;
|
|
|
|
|
|
//LRESULT __fastcall WndProc(HWND hWnd,UINT Msg,WPARAM wParam,LPARAM lParam);
|
|
|
|
|
|
|
|
|
|
|
|
public: // <EFBFBD><EFBFBD><EFBFBD>[<EFBFBD>U<EFBFBD>[<EFBFBD>錾
|
|
|
|
|
|
__fastcall TForm1(TComponent* Owner);
|
|
|
|
|
|
};
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
extern PACKAGE TForm1 *Form1;
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
#endif
|
