Я начинающий, и язык знаю плохо. Но учу, читаю различные книги, курсы и т.д. По ходу обучения решил поэкспериментировать с оконными свойствами создаваемой программы (создаю для КПК на WinCe 2003).
Столкнулся со сложностью: Пытаюсь создать полноэкранное приложение, но не получается. Точнее получается частично - остается видимой нижняя строка основного меню (не знаю как она называется, на ней еще обычно "висит" значек включения экранной клавиатуры). Прикрепляю фото. На нем видно полосу внизу. Как ее убрать? Мой код:
Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, Calendar;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
Left := 0;
Top := 0;
Height := Screen.Height;
Width := Screen.Width;
end;
end.
