ضبط مكان الفورم فوق الساعة تماما

[hanipino]

السلام عليكم

جرب احدى الطريقتين

الاولى : ( الاحسن)

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRect;
  Hauteur: Byte;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
  Hauteur := Screen.Height - R.Bottom;
  Left := Screen.Width - Width;
  Top := Screen.Height - Height - Hauteur;
end; 


الثانية : (شبه خدعة )

PHP كود :

procedure TForm1.FormResize(Sender: TObject);
begin
  Constraints.MaxWidth := 270;
  Align := alBottom;
  Align := alNone;
  Left := Screen.Width - Width;
end;