Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> CreateParams, CreateParams 
:(
    Опции темы
Gudzik11
Дата 3.6.2012, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 21.3.2012

Репутация: нет
Всего: нет



Здравствуйте! Делаю форму так
Код

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
   inherited CreateParams( Params );
  with Params do
  begin
    Style :=(WS_THICKFRAME or WS_BORDER or WS_POPUP);
  end;
end;


Мне нужно чтоб форма была без возможности изменения размера и без возможности перемещения ?

Подскажите как сделать ? 
PM MAIL   Вверх
MetalFan
Дата 4.6.2012, 17:37 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128



TForm.BorderStyle = bsSingle
TForm.Align = alCustom (подсмотрено в соседней теме)


Это сообщение отредактировал(а) MetalFan - 4.6.2012, 18:02


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Gudzik11
Дата 5.6.2012, 08:29 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 21.3.2012

Репутация: нет
Всего: нет



так не работае
PM MAIL   Вверх
MetalFan
Дата 5.6.2012, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128



Gudzik11, не работает что? рамер не меняется, перемещать форму нельзя. что еще надо?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Snowy
Дата 5.6.2012, 13:14 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Цитата(Gudzik11 @  5.6.2012,  09:29 Найти цитируемый пост)
так не работае
Если ты не убрал нафиг свой CreateParams, то конечно не работает...
PM MAIL   Вверх
Gudzik11
Дата 6.6.2012, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 21.3.2012

Репутация: нет
Всего: нет



в том то и дело что мне нужно получить именно такую форму а не обычьную
PM MAIL   Вверх
Чучмек
Дата 6.6.2012, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41



Отличие стилей bsSingle и bsSizeable в том и заключается, что в bsSingle отсутствует флаг WS_THICKFRAME
Поэтому для создания рамки используй WS_EX_DLGMODALFRAME
Код

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
params.Style:=  WS_POPUP or WS_BORDER;
params.ExStyle:=WS_EX_DLGMODALFRAME or params.ExStyle;
end;



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1289 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.