Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.01;
Скачать: CL | DM;

Вниз

Форма   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
14-742
ZeroDivide
2003-04-14 08:57
2003.05.01
Посоветуйте TV Tuner


3-484
reticon
2003-04-14 12:21
2003.05.01
удаление записи в таблице dBase


1-524
ZATISHYA
2003-04-19 02:03
2003.05.01
ПОМОГИТЕ!!! Как сделать перекодировщик символов по таблице???????


1-561
zDEUSz
2003-04-16 21:53
2003.05.01
Закрытие консольного приложения


1-539
Djvirus
2003-04-17 08:20
2003.05.01
Как убрать полосу прокрутки