Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
ВнизФорма Найти похожие ветки
← →
Leo-pro (2003-04-18 11:20) [0]Подскажите, как мне мою форму растянуть на весь экран. Чтобы она была поверх всех окон и панели задач в Window -се.
← →
Skier (2003-04-18 11:27) [1]
> Подскажите, как мне мою форму растянуть на весь экран.
Sсreen.Width и Sсreen.Height должны помочь...
← →
Михайлов Антон (2003-04-18 12:55) [2]procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.width:=screen.width;
form1.height:=screen.height;
form1.top:=0;
form1.left:=0;
form1.FormStyle:=fsStayOnTop;
end;
← →
Yorick (2003-04-18 13:51) [3]Так панель задач не исчезнет. Надо
type
TForm1 = class(TForm)
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c