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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.08.2007, 04:30   #11
Viteef
stopfake.org
Участник клуба
 
Регистрация: 03.05.2007
Сообщений: 1,927
По умолчанию

В свойствах формы посмотри BorderStyle
Viteef вне форума
Старый 08.08.2007, 07:47   #12
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от Kashp Посмотреть сообщение
2) Как сделать, чтобы кнопка закрытия (ну крестик вверху справа у программ) была видна,но чтобы она была недоступна?
я вот сейчас искал, но ответа не нашел
Нагло и не подецки врешь!!!

Код:
 Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

....
Procedure TForm1.WMGetSysCommand(var Message : TMessage) ;
   Begin
        IF (Message.wParam = SC_CLOSE)
{вместо SC_CLOSE можно SC_MINIMIZE    SC_MAXIMIZE}
        Then Form1.Visible:=true
        Else Inherited;
   End;
Alex21 вне форума
Старый 08.08.2007, 08:01   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вот еще вариант :

procedure TForm1.FormCreate(Sender: TObject);
var m:hmenu;
begin
m:=GetSystemMenu(Handle,false);
DeleteMenu(m,GetMenuItemCount(m)-1,MF_BYPOSITION);
end;


т.е. Всего то удаляем связанный с ней пункт меню формы.

А по первому вопросу ставь BorderStyle:=bsSingle;
I'm learning to live...
Stilet вне форума
Старый 08.08.2007, 08:05   #14
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Кстати, если воспользоваться "голым" примером Алекса21 то ты не просто запретиш закрытие формы по крестику, а и ALT+F4 перестанет работать
I'm learning to live...
Stilet вне форума
Старый 08.08.2007, 09:09   #15
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

один вопрос- одна тема. Неверное название темы. тема закрыта
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Начал осваивать С++, надеюсь на помощ(будет много вопросов) Swool Общие вопросы C/C++ 13 02.08.2008 13:24
Вопросов много, так что попорядку! Ermiss Общие вопросы Delphi 14 01.11.2007 16:18
Помогите! (много вопросов!) илья too Общие вопросы Delphi 2 20.08.2007 19:58
Много вопросов по программироанию в Delphi 7(нужна помощь) *Devil* Общие вопросы Delphi 15 22.05.2007 08:18