Убрать иконку "крестика" (закрытия формы)

@Gagens · Регистрация: 08.04.2010

Author24 — интернет-сервис помощи студентам

Привет всем!! Пишу программу и возникла проблемма с "крестом" который закрывает формую. Если я его убираю в свойствах BorderIcons то у меня не отображается иконка "свернуть". Подскажите как мне убрать крест (или хотя бы сделать его не доступным), но "свернуть"осталось доступной?

@nVz · 08.04.2010, 19:42

в свойстве формы BorderIcons , biSystemMenu поставь False

@Gagens · 08.04.2010, 19:43 **[ТС]**

Так когда я ставлю это свойство то у меня вообще ни че не отображается

@Jazon_deenAlt · 08.04.2010, 19:45

Gagens, ну я ж вам говорил уже про етот нюанс... никак... от перестановки ника особенности формы в делфи не меняютса...

@nVz · 08.04.2010, 19:45

ну тогда можешь поставить BorderStyle = bsNone и рисовать 2 кнопки, свернуть и развернуть, ну и писать к ним код..

@*~<`PIK`>~* · 08.04.2010, 23:10

тебе нужно просто чтобы форму нельзя было закрыть????

@Gagens · 09.04.2010, 08:14 **[ТС]**

Мне нужен лиш иконка свернуть чтоб осталось, а выход я сделал прям на форме

Добавлено через 12 минут
Как я понел мне на форму класть к примеру Button и писать к нему код сворачивания?

@*~<`PIK`>~* · 09.04.2010, 08:38

да)))))

@Gagens · 09.04.2010, 10:04 **[ТС]**

Блин.. фигово.. А че за код писать в процедуре?

Добавлено через 1 час 21 минуту
Чтобы форму сворачивать?

@Jazon_deenAlt · 09.04.2010, 10:13

Gagens,

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
WindowState:=wsMinimized;
end;

@Gagens · 09.04.2010, 10:20 **[ТС]**

Спасибо!!

@DenProx · 09.04.2010, 10:48

Gagens, не знаю, нужно еще или нет, но на мой взгляд, проще на событие формы -OnCreate поставить код:

Delphi

   SysMenu := GetSystemMenu( Handle, false );
   Windows.EnableMenuItem( SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED );
   GetSystemMenu( Handle, false );
   Perform( WM_NCPAINT, Handle, 0 );

и будет все Ок.

@Gagens · 09.04.2010, 11:39 **[ТС]**

Это как на событие формы? то есть?

@DenProx · 09.04.2010, 11:41

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
   SysMenu := GetSystemMenu( Handle, false );
   Windows.EnableMenuItem( SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED );
   GetSystemMenu( Handle, false );
   Perform( WM_NCPAINT, Handle, 0 );
end;

вот так.

@Gagens · 09.04.2010, 11:50 **[ТС]**

DenProx, щас попробую..долеко не уходи..

Добавлено через 2 минуты
DenProx, не фига не получилось..

Добавлено через 3 минуты
DenProx, не подскажешь почему?

@DenProx · 09.04.2010, 11:55

Gagens, а что именно не получилось? кнопка не затухла или компиляция не проходит?

Добавлено через 1 минуту
пардон)) мой косяк, вот так точно работает:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var SysMenu: HMenu;
begin
   SysMenu := GetSystemMenu( Handle, false );
   Windows.EnableMenuItem( SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED );
   GetSystemMenu( Handle, false );
   Perform( WM_NCPAINT, Handle, 0 );
end;

@Gagens · 09.04.2010, 12:00 **[ТС]**

DenProx, спасибо те огромное.. это мне и нужно было.. А как "развернуть " иконку убрать? Через свойство получится?

@DenProx · 09.04.2010, 12:03

Gagens, BorderIcons - biMaximize = False

@Gagens · 09.04.2010, 12:03 **[ТС]**

DenProx, Все получилось

, а ты не мог помочь с открытем ссылки с формы в браузере?

@DenProx · 09.04.2010, 12:05

Gagens, не совсем понял задачу) если можно поконкретнее, а лучше с примером)

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 11:50 [ТС]	15
	DenProx, щас попробую..долеко не уходи.. Добавлено через 2 минуты DenProx, не фига не получилось.. Добавлено через 3 минуты DenProx, не подскажешь почему? 0

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 12:00 [ТС]	17
	DenProx, спасибо те огромное.. это мне и нужно было.. А как "развернуть " иконку убрать? Через свойство получится? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	09.04.2010, 12:03	18
	Gagens, BorderIcons - biMaximize = False 0

@nVz 173 / 171 / 30 Регистрация: 12.12.2009 Сообщений: 1,336
	08.04.2010, 19:42	2
	в свойстве формы BorderIcons , biSystemMenu поставь False 2

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	08.04.2010, 19:43 [ТС]	3
	Так когда я ставлю это свойство то у меня вообще ни че не отображается 1

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	08.04.2010, 19:45	4
	Gagens, ну я ж вам говорил уже про етот нюанс... никак... от перестановки ника особенности формы в делфи не меняютса... 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	08.04.2010, 23:10	6
	тебе нужно просто чтобы форму нельзя было закрыть???? 0

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 08:14 [ТС]	7
	Мне нужен лиш иконка свернуть чтоб осталось, а выход я сделал прям на форме Добавлено через 12 минут Как я понел мне на форму класть к примеру Button и писать к нему код сворачивания? 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	09.04.2010, 08:38	8
	да))))) 1

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 10:04 [ТС]	9
	Блин.. фигово.. А че за код писать в процедуре? Добавлено через 1 час 21 минуту Чтобы форму сворачивать? 0

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 10:20 [ТС]	11
	Спасибо!! 0

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 11:39 [ТС]	13
	Это как на событие формы? то есть? 0

@Gagens 7 / 7 / 0 Регистрация: 08.04.2010 Сообщений: 27
	09.04.2010, 12:03 [ТС]	19
	DenProx, Все получилось, а ты не мог помочь с открытем ссылки с формы в браузере? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	09.04.2010, 12:05	20
	Gagens, не совсем понял задачу) если можно поконкретнее, а лучше с примером) 1

Убрать иконку "крестика" (закрытия формы)

Решение