Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Убрать строку заголовка. [D5, NT4]

onix © (2002-04-25 10:39:00)
Доброго всем дня.
Нашел пример создания заставки. В нем написано, чтобы убрать эту самую стоку нужно прописать (где ?) следующее.
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 13:10:00) [1]
День добрый,

Не мучаясь:

Params.Style := WS_POPUP;

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

С уважением,

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

gek (2002-04-25 13:02:00) [2]
Ну поставь панель align=client и установи border какой хочешь или bevel align=client
вариантов куча пробовать надо

SVM (2002-04-25 12:59:00) [3]
BorderStyle := bsNone
Bordericons := []
Form.Show;
Можно еще FormStyle:=fsStayOnTop, но не обязательно.

onix (2002-04-25 12:54:00) [4]
to Игорь Шевченко ©
Эффект тот же

onix (2002-04-25 12:51:00) [5]
to gek ©
Тогда заставка получается не объемная:(-

Игорь Шевченко (2002-04-25 12:51:00) [6]
День добрый,

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

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

С уважением,

gek (2002-04-25 12:49:00) [7]
Да не парься, сделай как Игорь Шевченко сказал
самое простое form.BorderStyle := bsNone

onix (2002-04-25 12:46:00) [8]
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.

Игорь Шевченко (2002-04-25 10:46:00) [9]
День добрый,

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

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

С уважением,

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »