Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c