Eigenes Formlayout

[Rastaman]

Geht einfacher

Delphi-Quellcode:

const
RgnPoints : array[1..21] of TPoint =
(
(X:1;Y:5),
(X:1;Y:321),
(X:9;Y:348),
(X:27;Y:370),
(X:49;Y:385),
(X:86;Y:393),
(X:124;Y:393),
(X:168;Y:386),
(X:200;Y:361),
(X:215;Y:334),
(X:221;Y:315),
(X:221;Y:6),
(X:169;Y:6),
(X:169;Y:306),
(X:158;Y:325),
(X:141;Y:333),
(X:110;Y:336),
(X:84;Y:332),
(X:63;Y:323),
(X:53;Y:310),
(X:53;Y:5)
);

Dann im onCreate

Delphi-Quellcode:

var
  Rgn : HRGN;
begin
  Rgn := CreatePolygonRgn(RgnPoints,   High(RgnPoints), ALTERNATE);
  SetWindowRgn(Handle, Rgn, True);
end;

Fertig