Значок в левом верхнем углу

← →
Viktop (2005-01-03 17:17) [0]

Извините за дурацкое название темы.
Как заблокировать доступ к меню (в левом верхнем углу формы)? Менять вид формы во время разработки нежелательно

← →
Fay © (2005-01-03 17:41) [1]

Перекрой CreateParams. Типа

procedure TForm1.CreateParams(var Params : TCreateParams); begin inherited; Params.Style := Params.Style or WS_POPUP or WS_MINIMIZEBOX or WS_MAXIMIZEBOX; end;

← →
GanibalLector © (2005-01-03 17:46) [2]

ШО за значок(или меню)???Где Вы его увидели???

← →
Fay © (2005-01-03 17:48) [3]

GanibalLector © (03.01.05 17:46) [2]
Это там, где иконка формы 8)

← →
dimaxx © (2005-01-03 21:39) [4]

Нафига? Не проще ли убрать из стиля окна WS_SYSMENU через GetWindowLong/SetWindowLong?

← →
Viktop (2005-01-04 10:49) [5]

to dimaxx
Можно поподробнее?

to Fay
В свойствах формы нет CreateParams. Куда это писать? И надо блокировать это меню совсем (чтобы иконка была видна, но не доступна). Просто я использую один компонент и он [компонент] меняет стандартное меню.

← →
Vit@ly © (2005-01-04 11:54) [6]

Enabled:= False???

← →
Viktop (2005-01-04 12:10) [7]

to Vit@ly
Это ты к чему?

← →
Vit@ly © (2005-01-04 12:19) [8]

Похоже не вруился в вопрос :(

← →
Vit@ly © (2005-01-04 12:19) [9]

не вруБился

← →
alless (2005-01-04 15:05) [10]

2: Viktop (04.01.05 10:49) [5]
в public TForm1 пишем:
procedure CreateParams(var Params : TCreateParams);
после implements: Fay © (03.01.05 17:41) [1]

← →
GrayFace © (2005-01-04 16:16) [11]

ibSystemMenu в BorderIcons.
alless (04.01.05 15:05) [10]
procedure CreateParams(var Params : TCreateParams);
после implements: Fay © (03.01.05 17:41) [1]
procedure CreateParams(var Params : TCreateParams); override;
И не то, что Fay писал, а Params.Style := Params.Style and not WS_SYSMENU;

← →
Viktop (2005-01-04 17:22) [12]

to GrayFace
Я ещё больше запутался :-(
Если нетрудно, то приведи полный код (от Unit1 до end.)

Сори за [1]. Просто ошибся при подборе 8)
2 GrayFace © (04.01.05 16:16) [11]
После этого не будет мини/максимайза.

2 Viktop (04.01.05 17:22) [12]
Купите лучше себе хороший букварь, да посмотрите исходники компонентов.

SetWindowLong(FormHandle,GWL_STYLE,GetWindowLong(FormHandle,GWL_STYLE) or (not WS_SYSMENU));

где FormHandle и есть хэндл нужной формы, у которой надо убрать меню. Кстати, убирается и иконка тоже...

dimaxx © (05.01.05 0:42) [14]
SetWindowLong(FormHandle,GWL_STYLE,GetWindowLong(FormHandle,GWL_STYLE) and (not WS_SYSMENU));

Fay © (05.01.05 0:01) [13]
После этого не будет мини/максимайза.
Действительно.

2 GrayFace: Пардон, ошибся...

Значок в левом верхнем углу Найти похожие ветки