Das wurde sicher mit Regionen gemacht.
zum Beispiel...
Delphi-Quellcode:
procedure TfrmMain.FormShow(Sender: TObject);
var
ClientRgn : THandle;
begin
ClientRgn := CreateRoundRectRgn( 0, 0, Width + 1, Height + 1, 16, 16 );
SetWindowRgn(
Handle, ClientRgn, TRUE );
end;
... rundet die Kanten eines Fenster. Jetzt Top ein wenig runter setzen und eine Region für den Pfeil hinzufügen.