IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Перетаскивание формы
Cтасикявичус
сообщение 23.08.2004 15:47
Сообщение #1


Гость






Подскажите, ПЛИЗЗЗ!
Как мне сделать так, (и можно ли вообще) чтобы форму можно было перетаскивать с маста на место держась за TImage или TPaintBox.
Заранее очень благодарен.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
xds
сообщение 23.08.2004 23:53
Сообщение #2


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if ssLeft in Shift then
   begin
     ReleaseCapture;
     SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
   end;
end;


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 10.07.2025 19:35
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"