Panel по центру формы и закрытие файла

[krikaved]

1. Как сделать Panel1 по центру формы?
У меня получилось не по центру, а немного левее.

Panel1.Top:=Screen.DesktopTop;
Panel1.Left:=Screen.DesktopWidth - Width;

2. Подскажите как сделать чтобы скомпилированный exe файл не закрывался по нажатию клавиш ALT+F4?

[evg_m]

panel:left:=( form.width - panel.width ) div 2;

[krikaved]

Сообщение от evg_m

panel:left:=( form.width - panel.width ) div 2;

Panel1 находится там же, где и в моем коде - вверху левее центра.

[Кольша]

panel.left:=( form.width - panel.width )

[Хамяг]

1)

Сообщение от evg_m

panel:left:=( form.width - panel.width ) div 2;

лучше использовать свойство clientwidth у формы:

Panel.Left := (ClientWidth - Panel.Width) div 2;

2)
обработчик события OnKeyDown:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssAlt in Shift) and (Key = VK_F4) then Key := 0;
end;

[krikaved]

Сообщение от Хамяг

1)лучше использовать свойство clientwidth у формы:
Panel.Left := (ClientWidth - Panel.Width) div 2;

Все равно также, у меня форма alClient может это как-то влияет?

[evg_m]

у меня форма alClient может это как-то влияет?

конечно влияет.
сохдается она нормального размера.
панеть выставляется по этим размерам.(если телепатор не врет, то создание панели и установка позиции идет в OnCreate).
потом идет выставление новыъ размеров формы, а панель как была так и осталась.
чтобы следить за размерами у формы есть OnResize