Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Убрать строку заголовка.   Найти похожие ветки 

 
onix ©   (2002-04-25 10:39) [0]

Доброго всем дня.
Нашел пример создания заставки. В нем написано, чтобы убрать эту самую стоку нужно прописать (где ?) следующее.
SetWindowLong (Main.Handle, GWL_STYLE,
GetWindowLong(Main.Handle, GWL_STYLE) AND
NOT WS_CAPTION OR WS_SIZEBOX);
Пробовал прописать в Show заставки

SetWindowLong (FSplash.Handle, GWL_STYLE,
GetWindowLong(FSpalsh.Handle, GWL_STYLE) AND
NOT WS_CAPTION OR WS_SIZEBOX);

, но ничего не произошло.
Подскажите пожалуйста как правильно ...


 
Игорь Шевченко ©   (2002-04-25 10:46) [1]

День добрый,

У формы-заставки переписать метод CreateParams и в нем сказать
inherited;
with Params do
Style := Style AND NOT (WS_CAPTION OR WS_SIZEBOX);

Или просто указать BorderStyle := bsNone, как делают простые немудрящие люди :-))

С уважением,


 
onix ©   (2002-04-25 12:46) [2]

to Игорь Шевченко ©
К сожалению не работает. Вот текст unit"a, может что здесь не так
unit Splash;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
TFSplash = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public
{ Public declarations }
end;

var
FSplash: TFSplash;

implementation

uses Main;

{$R *.DFM}

procedure TFSplash.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
end;

procedure TFSplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := not Timer1.Enabled;
end;

procedure TFSplash.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style AND (WS_CAPTION OR WS_SIZEBOX);
end;

end.


 
gek ©   (2002-04-25 12:49) [3]

Да не парься, сделай как Игорь Шевченко сказал
самое простое form.BorderStyle := bsNone


 
onix ©   (2002-04-25 12:51) [4]

to gek ©
Тогда заставка получается не объемная:(-


 
Игорь Шевченко ©   (2002-04-25 12:51) [5]

День добрый,


>procedure TFSplash.CreateParams(var Params: TCreateParams);
>begin
>inherited;
>Params.Style := Params.Style AND (WS_CAPTION OR WS_SIZEBOX);

^^^^^ AND NOT ^^^^^^^^^^
>end;


С уважением,


 
onix ©   (2002-04-25 12:54) [6]

to Игорь Шевченко ©
Эффект тот же


 
SVM   (2002-04-25 12:59) [7]

BorderStyle := bsNone
Bordericons := []
Form.Show;
Можно еще FormStyle:=fsStayOnTop, но не обязательно.


 
gek ©   (2002-04-25 13:02) [8]

Ну поставь панель align=client и установи border какой хочешь или bevel align=client
вариантов куча пробовать надо


 
Игорь Шевченко ©   (2002-04-25 13:10) [9]

День добрый,

Не мучаясь:

Params.Style := WS_POPUP;

Далее по вкусу.

С уважением,

P.S. Значит, ошибались те, кто советовал в самом начале через GetWindowLong :-))



Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.012 c
3-25985
Пикулев Евгений
2002-04-15 11:08
2002.05.09
Количество записей в DBGride


4-26302
alexey1
2002-03-06 02:47
2002.05.09
Вопрос на старую тематику о диалогах:


1-26083
nikulin
2002-04-25 09:49
2002.05.09
Как создать кнопки похожие на системные...


3-25980
Яковлев Андрей
2002-04-15 12:28
2002.05.09
Помогите справиться с ошибкой


3-25995
Практик
2002-04-12 19:53
2002.05.09
Поделитесь примерами