Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Вниз
Форма Найти похожие ветки
← →
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 делаю, работает первое. А второе не красиво, но и у тебя заработает.
← →
KSergey (2003-10-01 09:46) [11]> [10] Думкин © (01.10.03 08:34)
> Я формы без dfm делаю, работает первое. А второе не красиво,
> но и у тебя заработает.
О, это что еще за извращение, простите?? Или в смысле динамически все элементы? А какой от того резон?
← →
Думкин (2003-10-01 09:53) [12]> KSergey © (01.10.03 09:46)
Мне резон есть.
А в CreateParams надо написать:
Params.Style := (Params.Style or WC_POPUP) and not WS_CAPTION
МВо надоумил.
← →
AbrosimovA (2003-10-01 15:23) [13]Или так:
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
← →
scorpi (2003-10-02 08:50) [14]Спасибо Думкин !!!...Вовремя исправился..:)) А вчера меня позорили на весь NET ....Еще раз спасибо работает, только константу опять же неправильно написал не WC_POPUP, а WS_POPUP, но это легко догадаться.. ..А если бы я был полным чай...ом, опять бы меня обвиняли??....Еще раз большое человевеское спасибо.....РАБОТАЕТ..!!!!
← →
Думкин (2003-10-02 09:11) [15]> scorpi © (02.10.03 08:50)
Ну, извиняюсь. Я вчера глючил. Только ночная перезагрузка помогла. :-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c
