splashscreen in der bildschirmmitte zentrieren

[gandime]

hi ich möchte ein splashscreen beim start in der bildschirmmitte zentrieren.

hab zwar schon nen code gefunden der den splashscreen anzeigt aber ich weiss nicht wie ich ihn zentriere

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Alpha: Boolean;
  Bit: TBitmap32;
  BlendF: TBlendFunction;
  P: TPoint;
  Size: TSize;
begin
  Bit := TBitmap32.Create;
  bit:=Image321.Bitmap;
  setWindowLong(Handle, GWL_EXSTYLE,getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  BlendF.BlendOp := AC_SRC_OVER;
  BlendF.BlendFlags := 0;
  BlendF.SourceConstantAlpha := 255;
  BlendF.AlphaFormat := AC_SRC_ALPHA;
  P := Point(0, 0);
  Size.cx := Bit.Width;
  Size.cy := Bit.Height;
  UpdateLayeredWindow(Handle, 0, nil, @Size, Bit.Handle, @P, 0, @BlendF, ULW_ALPHA);
end;

[NikoMitDaMacht]

Delphi-Quellcode:

left := (Screen.WorkAreaWidth div 2) - (BreiteVomSplash div 2);
top := (Screen.WorkAreaHeight div 2) - (HöheVomSplash div 2);

[Neutral General]

Oder einfach die Position Eigenschaft der Form auf poScreenCenter stellen

Gruß
Neutral General

[gandime]

also

Zitat von Neutral General:

Oder einfach die Position Eigenschaft der Form auf poScreenCenter stellen

Gruß
Neutral General

das geht nicht dann is es immer noch nicht im mittelpunkt (die form schon aber das bild nicht)

Zitat von NikoMitDaMacht:

Delphi-Quellcode:

left := (Screen.WorkAreaWidth div 2) - (BreiteVomSplash div 2);
top := (Screen.WorkAreaHeight div 2) - (HöheVomSplash div 2);

das verstehe ich nicht so recht wo soll das bitte hin?

[NikoMitDaMacht]

In OnFormShow der Form

[NikoMitDaMacht]

Füllt das Bild den die Form komplett aus?

[gandime]

ja da is mein fehler die form war kleiner als das bild thx