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.

50 lines
1.5 KiB

3 years ago
//---------------------------------------------------------------------------
#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>
#include <FMX.StdCtrls.hpp>
#include <FMX.Objects.hpp>
#include <FMX.Edit.hpp>
3 years ago
//---------------------------------------------------------------------------
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;
TImage *Image1;
TTrackBar *TrackBar1;
TEdit *Edit1;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
3 years ago
// void __fastcall FormDestroy(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall TrackBar1Change(TObject *Sender);
void __fastcall Edit1Exit(TObject *Sender);
//void __fastcall Button1Click(TObject *Sender);
3 years ago
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