[BIG_BO]

есть квадрат. нужно реализовать чтобы когда курсор был на угле. то можно было тянуть за этот угол
квадрат я нарисовал

[Bargest]

Код:

При нажатии мыши:
если координаты мыши около угла
  ставим глобальный флаг, сохраняем координаты мыши

При движении мыши:
если флаг
  из текущих координат мыши вычитаем сохраненные, получаем на сколько передвинулась мышь
  изменяем размер квадрата на новый используя эти значения

При отпускании мыши:
снять флаг

[BIG_BO]

так тяжело. примерчик бы

[angvelem]

У тебя столько ляпов в программе, что для начала их исправь. К примеру:

Код:

procedure MyNCPaint(Wnd : HWND; Msg: UINT; wParam, lParam : Longint);
var
  R, R1   : TRect;
  ps      : TPaintStruct;
  Context : HDC;
  Font    : HFONT;
  Pen     : HPEN;
  Brush   : HBRUSH;
begin
  Context := GetWindowDC(Wnd);
  GetClientRect(Wnd, R);

  SelectObject(Context, Pen);    // А ты создавал?
  selectobject(context, brush);  // А ты создавал?

  ExtFloodFill(context, 0, 50, brush, FLOODFILLSURFACE);

  DeleteObject(pen);             // Удаляем несозданное?
  DeleteObject(brush);           // Удаляем несозданное?

  Ellipse(Context, 600, 0, 630, 30);
  Font := CreateFont(30, 50, 0, 0, FW_Normal, 0, 0, 0,
    DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
    DEFAULT_PITCH, 'Tahoma');
  SelectObject(Context, Font);
  DrawText(Context, 'Hey Arnold', -1, R, DT_LEFT);

  DeleteObject(Font);         // Удаляем выбранный в контекст объект?
  ReleaseDc(hwnd, context);
end;

и это, только маленькая толика из всех ляпов.

[BIG_BO]

буду исправлять

[BIG_BO]

все еще требуется решение