Активная рамка

← →
BFG9k © (2005-08-11 13:20) [0]

На изображении нужно нарисовать прямоугольную рамку, которую можно перемещать, а также изменять ее размеры мышью. Думаю, что это должно быть окно (например форма) с прозрачной областью. Не исключаю другие варианты, главное - результат (быстро и без мерцания).

← →
afanasic (2005-08-11 16:39) [1]

Самый простой выход:
Кидаешь на TImage еще один TImage с изображением рамки на белом фоне, далее Stretch := True; Transparent := True; и в OnMouseDown, OnMouseMove описываешь перемещение этого изображения относительно исходного. Размеры меняй за счет ClientWidth и ClientHeight. Желательно исходное изображение закинуть на панель, чтобы служебное двигалось в пределах этой панели. Вот, собственно, и все - должно работать.

← →
BFG9k © (2005-08-11 22:15) [2]

Спасибо, но опоздал - я уже сделал с формой :) Да, так было проще, зато у меня активно то, что находится внутри рамки.

← →
afanasic (2005-08-12 09:00) [3]

Ну извини, торопился как мог! :-)
RGN, fsStayOnTop - вариант...

Активная рамка Найти похожие ветки