Hallo,

dieses Thema beschaeftigt mich jetzt schon einen halben
Tag, die Forenhinweise haben mir leider nicht weiterhelfen
koennen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TVideoWindow.FormCreate(Sender: TObject);
var
 OldStyle: longint;
 Fensterstil: Cardinal;
 Save: Longint;
begin
 //ShowWindow(Self.Handle,SW_HIDE);
 //SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, nil, 0);
 //OldStyle := GetWindowLong(Self.Handle, GWL_STYLE);
 //SetWindowLong(Self.Handle, GWL_STYLE, OldStyle and not WS_CAPTION);
 SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, nil, 0);
 LockWindowUpdate(VideoWindow.Handle);
 OldStyle := GetWindowLong(VideoWindow.Handle, GWL_STYLE);
 SetWindowLong(Handle, GWL_STYLE, OldStyle and not WS_CAPTION);
 SetWindowLong(VideoWindow.Handle, GWL_EXSTYLE,
  GetWindowLong(VideoWindow.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
 LockWindowUpdate(0);
 Height := wmp.Height;
 Width := wmp.Width;
 DoubleBuffered := True;
end;

Er stellt das Fenster (es ist allerdings ein MDI-Child) trotzdem
mit Titlebar dar. Auch werden an den Raendern so krisselige Verzerrungen
angezeigt.

Jemand noch einen Tip fuer mich ?

Gruss,
der Zweig

Ich glaub da war irgendwas mitFormStyle := fsNone oderBorderStyle := bsNone

ich könnt noch ein WS_POPUP flag beisteuern...