[Gudzik11]

Здравствуйте подскажите пожалуйста как правильно масштабировать форму под разрешение экрана .
Пытаюсь делать так

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  W,H : Integer ;

begin

      
      w:=Screen.Width;   
      h:=Screen.Height;   

 
       BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Left        := 0;
      Top         := 0;
      Height      := h;  
      Width       := w; 

     
       panel1.Left:=0;
        panel1.Top:=0;
        panel1.ScaleBy(w,h);
     
    
       end;

но панель становиться больше моего экрана
Подскажите пожалуйста что я не так делаю?