Как в билдере мышью двигать элементами?например мышью подвинуть Image куда будет душе угодно
Добавлено через 10 минут и 10 секунд Если кому надо разобрался
Код | int OldX; int OldY; bool IsMouseDown=false;
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { OldX=X; OldY=Y; IsMouseDown=true; } //---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(IsMouseDown) { Image1->Left+=X-OldX; Image1->Top+=Y-OldY; } } //---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { IsMouseDown=false; } //---------------------------------------------------------------------------
|
|