Hallo,
dieses Thema beschaeftigt mich jetzt schon einen halben
Tag, die Forenhinweise haben mir leider nicht weiterhelfen
koennen.
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