Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Хочу чтоб форма была во весь экран 


Bboy   (2002-03-25 22:55) [0]

В свойстве формы align ставлю ALclient- форма растягивается на весь экран, но не захватывает ПУСК, "свернуть все окна","Эксполер" и т.д. как Это сделать, чтобы все было под формой???



Sound   (2002-03-25 23:03) [1]

Свойство WindowState в wsMaximized BorderStyle в None



SPeller   (2002-03-25 23:04) [2]

Почти ничего - просто ставишь ей размеры 800х600, ... она сама станет поверх таскбара и пуска.



Almaz   (2002-03-26 00:59) [3]


> SPeller © (25.03.02 23:04)
> Почти ничего - просто ставишь ей размеры 800х600, ... она
> сама станет поверх таскбара и пуска

А у меня рабочий стол - 1024х768. Где будет ваша форма :)

> Bboy ©
Напишите такой код в обработчике OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
Left := 0;
Top := 0;
Width := GetSystemMetrics(SM_CXSCREEN);
Height := GetSystemMetrics(SM_CYSCREEN);
end;


Удачи.



SPeller   (2002-03-26 01:33) [4]

Almaz,
Я имел ввиду не указать цифру "800" и "600", а установить размер формы во весь экран. А сделать это можно ещё и так:

procedure TForm1.FormCreate(Sender: TObject);
begin
Left := 0;
Top := 0;
Width := Screen.Width;
Height := Screen.Height
end;

Так более прозрачно.



Bboy   (2002-03-26 08:14) [5]

Перепробовал все вышеперечисленные способы, все равно таскбар видно(((



Alx2   (2002-03-26 08:20) [6]

У меня вот так заработало:
Form1.WindowState := wsMaximized;
Form1.BorderStyle := bsNone;
Form1.Show;



Alx2   (2002-03-26 08:23) [7]

Чтобы у тебя заработало поставь Align=alNone



Bboy   (2002-03-26 08:26) [8]

Да,да. Токо что сам случайно align=none поставил и действительно все заработало, спасибо всем!!!



copyr25   (2002-03-26 08:28) [9]

unit Unit1;
interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
begin
inherited;
with msg.MinMaxInfo^.ptMaxTrackSize do begin
X := GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth);
Y := GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight );
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
const
Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
FullScreen: Boolean = False;

begin
FullScreen := not FullScreen;
if FullScreen then begin
Rect := BoundsRect;
SetBounds( Left - ClientOrigin.X,
Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle, HORZRES )
+ (Width - ClientWidth), GetDeviceCaps( Canvas.handle, VERTRES )
+ (Height - ClientHeight ));
end
else BoundsRect := Rect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.027 c
1-22705           ТеньЛуны              2002-03-26 15:59  2002.04.08  
Библиотеки шифрования


1-22691           Grishin               2002-03-26 13:22  2002.04.08  
В чем проблема?


1-22767           DikobraZ              2002-03-27 10:29  2002.04.08  
Как узнать имя компьютера и логин пользователя??


14-22793          vopros                2002-02-22 16:15  2002.04.08  
Меня опять достала такая жизнь...


14-22836          BJValentine           2002-02-13 22:29  2002.04.08  
Почта