Текущий архив: 2006.01.01;
Скачать: CL | DM;

Вниз

Как сделать что бы программа была на весь экран   Найти похожие ветки 

← →
vpavel ©   (2005-12-12 20:57) [0]

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

---

← →
Form1   (2005-12-12 22:01) [1]


БОЛЬШОЙ 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

---

← →
vpavel ©   (2005-12-12 22:16) [2]

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

---

← →
alex-drob ©   (2005-12-12 22:22) [3]

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

замени на

var
Rect: TRect;
FullScreen: Boolean;

---

← →
vpavel ©   (2005-12-12 22:27) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.01;
Скачать: CL | DM;

Наверх

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