Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизУбрать строку заголовка. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c