| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сделать что бы программа была на весь экран [D7, XP]

vpavel ©   (2005-12-12 20:57:00) 

Люди добрые помогите простому смертному.... как сделать что бы прога была на весь экран закрывая кнопку пуск и не срабатывала клавиша ALT+TAB.... благодарю....

---

vpavel   (2005-12-12 22:27:00) [1]

Благодобю.... Все теперь получилося.....

---

alex-drob   (2005-12-12 22:22:00) [2]

const
Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
FullScreen: Boolean = False;

замени на

var
Rect: TRect;
FullScreen: Boolean;

---

vpavel   (2005-12-12 22:16:00) [3]

FullScreen := not FullScreen;
Rect := BoundsRect;
здеся и здеся выдает ошибку....
и все прога не запускается есть еще какой нибуть способ...

---

Form1   (2005-12-12 22:01:00) [4]


БОЛЬШОЙ FAQ ПО DELPHI
Как развернуть форму на весь экран, как в играх

interface
uses
Windows, Messages, SysUtils, Classes, Controls,
Forms,
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.

Источник: DelphiWorld

---

Наверх