Форма

← →
scorpi © (2003-10-01 06:27) [0]

Как сделать форму без строки заголовка, но чтобы форма имела такие же 3D границы...??

← →
Думкин © (2003-10-01 06:43) [1]

TMyForm = class(TForm) private protected procedure CreateParams(var Params: TCreateParams); override; .... procedure TMyForm.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := Params.Style and not WS_CAPTION end;

← →
scorpi © (2003-10-01 07:28) [2]

>>Думкин
Че т не прет.....
И где найти событие, которое вызывает CreateParams.. или куда вставлять и как эту процедуру..??...Откуда ты ее взял...если не вопрос??..

← →
MBo © (2003-10-01 07:29) [3]

>И где найти событие, которое вызывает CreateParams
Это нужно сделать руками.

← →
Думкин © (2003-10-01 07:36) [4]

> scorpi © (01.10.03 07:28)
procedure CreateParams(var Params: TCreateParams); override;

Подумай почему выделено.

← →
scorpi © (2003-10-01 07:56) [5]

Как ее потом вызвать???..Какой параметр??..
Куда вставлять???

← →
Спрашивающий_ (2003-10-01 07:58) [6]

Если пост выше так и не реализован можешь сделать форму со свойством bsNone и кинуть на форму TBevel со свойствами
bsFrame и bsRaised. Ну и конечно поставить TBevel - alClient.

← →
Думкин © (2003-10-01 08:12) [7]

> scorpi © (01.10.03 07:56)

F1 - никто не отменял. Сей код будет вызван самостоятельно. Тебе лишь надо прописать то, что указано. А еще почитать книжки, и быть может покопаться в коде VCL.

← →
Scorpi © (2003-10-01 08:21) [8]

>>Думкин
Постоянно пользуюсь F1 и книжек много хороших читаю .....НО НЕ ПРЕТ..!!!..не получается..

← →
HolACost! © (2003-10-01 08:29) [9]

>>Постоянно пользуюсь F1 и книжек много хороших читаю .....НО НЕ >>ПРЕТ..!!!..не получается..
Так может не те книжки читаешь или не на ту Ф1 жмёшь и вообще...

← →
Думкин © (2003-10-01 08:34) [10]

Хм.

тогда в FormCreate вставь:

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION); Height := Height +1; Height := Height -1;

Я формы без dfm делаю, работает первое. А второе не красиво, но и у тебя заработает.

> [10] Думкин © (01.10.03 08:34)
> Я формы без dfm делаю, работает первое. А второе не красиво,
> но и у тебя заработает.

О, это что еще за извращение, простите?? Или в смысле динамически все элементы? А какой от того резон?

> KSergey © (01.10.03 09:46)
Мне резон есть.

А в CreateParams надо написать:

Params.Style := (Params.Style or WC_POPUP) and not WS_CAPTION

МВо надоумил.

Или так:

var Form1: TForm1; ParamW: TCreateParams; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited; Params.Style :=Params.Style+WS_Border; end; procedure TForm1.FormCreate(Sender: TObject); begin CreateParams(ParamW); end;

А также свойство формы Borderstyle = bsNone

Спасибо Думкин !!!...Вовремя исправился..:)) А вчера меня позорили на весь NET ....Еще раз спасибо работает, только константу опять же неправильно написал не WC_POPUP, а WS_POPUP, но это легко догадаться.. ..А если бы я был полным чай...ом, опять бы меня обвиняли??....Еще раз большое человевеское спасибо.....РАБОТАЕТ..!!!!

Форма Найти похожие ветки