Resize базовых элементов управления в runtime режиме

[SanyaT]

Уважаемые мастера!
Есть форма на которой создаются динамически элементы управления, как при построении в disign-time режиме. Надо осуществить resize этих
элементов управления и понятное дело мышью. Нашел такое решение менять стиль элементов управления:

Style = GetWindowLong(control.hwnd, GWL_STYLE)
Style = lStyle Or WS_THICKFRAME
SetWindowLong control.hwnd, GWL_STYLE, lStyle

Есть константа WS_SIZEBOX, но она равна WS_THICKFRAME,
т.е Resize кнопки, textbox'а хоть и есть но не красивый, а resize label'a
не будет, т.к не имеет своего личного hwnd.

Как это сделать красивее и для всех элементов управления, а если есть пример всего этого, то просто было бы замечательно (можно кинуть на e-mail).

[GSerg]

Ну, в IDE сделано так...
Там создаются восемь маленьких квадратных окон по углам ресайзируемого контрола и в центре его сторон, после чего происходит обработка mouse down, move, up этих контролов.

[SanyaT]

Придется делать как в IDE , так и думал .... , я искал вариант попроще... думал кто сообразит... Если кто то делал чото похожее или видел код где-то, киньте урлу или можно намылить tarasov_alexandr@pochta.ru