Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Активная рамка [D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]


BFG9k ©   (2005-08-11 13:20:00) 

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


afanasic   (2005-08-12 09:00:00) [1]

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


BFG9k   (2005-08-11 22:15:00) [2]

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


afanasic   (2005-08-11 16:39:00) [3]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо