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:

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:

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