Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.08.2011, 06:38   #1
IHaveQuestions
Пользователь
 
Регистрация: 08.08.2011
Сообщений: 19
По умолчанию Как грамотно убрать строку заголовка

Как можно убрать строку заголовка, при этом сделать так чтобы можно было перетаскивать окно программы, схватив за любую её часть. А не только за саму строку. Просто если я убираю строку то перетаскивать программу не получается.

Ну и ещё вопрос, когда я убираю строку скин перестаёт отображаться (который Alpha skins), как решить эту проблему?

P.S. Изображение закрывает некоторые элементы, как сделать чтобы изображение было как бы под этими элементами.

Последний раз редактировалось IHaveQuestions; 14.08.2011 в 07:06.
IHaveQuestions вне форума Ответить с цитированием
Старый 14.08.2011, 09:57   #2
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

чтобы перетаскивать за любую часть формы, нужно в обработчике OnMouseDown (всех контролов) написать
Код:
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
ZuBy вне форума Ответить с цитированием
Старый 14.08.2011, 10:13   #3
IHaveQuestions
Пользователь
 
Регистрация: 08.08.2011
Сообщений: 19
По умолчанию

Цитата:
Сообщение от ZuBy Посмотреть сообщение
чтобы перетаскивать за любую часть формы, нужно в обработчике OnMouseDown (всех контролов) написать
Код:
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
Спасибо, всё получилось

Только я поставил в OnMouseMove
IHaveQuestions вне форума Ответить с цитированием
Старый 14.08.2011, 14:21   #4
gesper
Пользователь
 
Аватар для gesper
 
Регистрация: 02.04.2011
Сообщений: 17
По умолчанию

Цитата:
Сообщение от IHaveQuestions Посмотреть сообщение
Спасибо, всё получилось

Только я поставил в OnMouseMove
ИМХО, ты забиваешь процессор безполезной работой. На любое движение мыши, даже если не надо будет обработка идти. А потом начнеться - ой у меня процессор слабенький.
gesper вне форума Ответить с цитированием
Старый 14.08.2011, 16:38   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
убрать строку заголовка
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 BorderStyle:=bsNone;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.08.2011, 12:39   #6
CoderHex
Новичок
Джуниор
 
Регистрация: 15.08.2011
Сообщений: 4
По умолчанию

Цитата:
Сообщение от IHaveQuestions Посмотреть сообщение
P.S. Изображение закрывает некоторые элементы, как сделать чтобы изображение было как бы под этими элементами.
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.SendToBack;
end;
Или в контекстном меню выбрать Control -> Send to Back
CoderHex вне форума Ответить с цитированием
Старый 15.08.2011, 16:39   #7
IHaveQuestions
Пользователь
 
Регистрация: 08.08.2011
Сообщений: 19
По умолчанию

Спасибо за ответы
IHaveQuestions вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PHP+MySQL - как грамотно сделать? slm PHP 7 12.01.2011 18:10
Убрать пустые переходы на новую строку Drt Microsoft Office Word 2 29.10.2010 07:55
Как грамотно собрать файл из частей ? bdfy Microsoft Office Word 5 19.09.2010 03:18
Как грамотно подружить Firebird и Interbase на 1 ПК? Alexei91 БД в Delphi 3 20.08.2010 13:29
Как сделат грамотно меню Manonia HTML и CSS 5 19.01.2010 12:43