Axbor

void __fastcall TForm3::Rectangle1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X, float Y) { if(!isdown) return; 1) float dx = (Screen->MousePos().X - oldx); 2) float dy = (Screen->MousePos().Y - oldy); 3) if(dx > 5) 4) dx = 5; 5) if(dx < -5) 6) dx = -5; 7) if(dy > 5) 8) dy = 5; 9) if(dy < -5) 10) dy = -5; Rectangle1->Position->X = Rectangle1->Position->X + dx; Rectangle1->Position->Y = Rectangle1->Position->Y + dy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } //--------------------------------------------------------------------------- void __fastcall TForm3::Rectangle1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y) { isdown = false; } //--------------------------------------------------------------------------- Добавил отмеченные строки, прекрасно работает.

Серия статей с пошаговой инструкцией, как подключить и настроить Android, OS X, iOS Simulator, iOS для работы с RAD Studio.
 
Как настроить Android и RAD Studio XE7 (Delphi, C++ Builder)
http://habrahabr.ru/company/delphi/blog/253929/

 
Как настроить Mac OS X, iOS-симулятор и RAD Studio XE8 (Delphi, C++ Builder)
http://habrahabr.ru/company/delphi/blog/255721/

 
Как настроить iOS-устройство и RAD Studio XE8 (Delphi, C++ Builder)
http://habrahabr.ru/company/delphi/blog/265313/

на сколько знаю, высота не меняется вообще

Image1.Children.Items[i]

Приступил к разработке клиента с использованием FireMonkey для форума. В будущем код будет открытым и каждый сможет посмотреть, как реализованы те или иные вещи.
А пока пара скриншотов:

Сами задаем вопрос и сами отвечаем!
событие OnMouseDown() { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseMove() { if(!isdown) return; Object->Position->X = Object->Position->X + Screen->MousePos().X - oldx; Object->Position->Y = Object->Position->Y + Screen->MousePos().Y - oldy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseUp() { isdown = false; }

Сами задаем вопрос и сами отвечаем!
событие OnMouseDown() { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseMove() { if(!isdown) return; Object->Position->X = Object->Position->X + Screen->MousePos().X - oldx; Object->Position->Y = Object->Position->Y + Screen->MousePos().Y - oldy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseUp() { isdown = false; }

Popup.IsOpen := False;

менять не видимым высоту в 0

Bitmap->Width, Bitmap->Height, оригинальные размеры загруженного изображения. Размер компоненты изменяю так:
    double koefW = 200.0/(double)Bitmap->Width;     double koefH = 200.0/(double)Bitmap->Height;     double koefC = (koefW < koefH?koefW:koefH); Image->Width = Bitmap->Width * koefC; Image->Height = Bitmap->Height * koefC;

Bitmap->Width, Bitmap->Height, оригинальные размеры загруженного изображения. Размер компоненты изменяю так:
    double koefW = 200.0/(double)Bitmap->Width;     double koefH = 200.0/(double)Bitmap->Height;     double koefC = (koefW < koefH?koefW:koefH); Image->Width = Bitmap->Width * koefC; Image->Height = Bitmap->Height * koefC;

Bitmap->Width, Bitmap->Height, оригинальные размеры загруженного изображения. Размер компоненты изменяю так:
    double koefW = 200.0/(double)Bitmap->Width;     double koefH = 200.0/(double)Bitmap->Height;     double koefC = (koefW < koefH?koefW:koefH); Image->Width = Bitmap->Width * koefC; Image->Height = Bitmap->Height * koefC;

Спасибо, так и сделал!