Rand eines Windows nicht anzeigen

[3_of_8]

1. war nach nonVCL gefragt, daher ist borderstyle:=bsNone; nicht möglich.
2. ich wollte das Ding nicht skalieren können.

[informix05]

Zitat:

Zitat von 3_of_8

1. war nach nonVCL gefragt, daher ist borderstyle:=bsNone; nicht möglich.
2. ich wollte das Ding nicht skalieren können.

Sorry, hab ich wohl auch falsch verstanden.

Aber jetzt habe ich eine ähnliches Problem: ich habe ein anderes Programm (nicht mit Delhpi und nicht von mir erstellt), das ein Fenster ohne Titelleiste u. Rand hat. Diesem Fenster möchte ich nun mit einem Delphi-Programm Titelleiste u. Rand hinzufügen. Mit SetWindowLong(...) etc. bekomme ich das nicht hin. Hast du mittlerweile eine Lösung für dein Problem?

[informix05]

Heureka, Rand verstecken bzw. anzeigen mit SetWindowLong(...) funktiniert schon, man muss danach aber noch über SetWindowPos(...) eine SWP_FRAMECHANGED Message senden, damit Windows den geänderten Rand auch neu zeichnet:

Delphi-Quellcode:

//*** Titelleiste u. Rand eines Fenster verstecken ***
procedure TForm1.Button_HideBorderClick(Sender: TObject);
var
   dwStyle              : Cardinal;
   hWnd                            : THandle;
begin
   hWnd := FindWindow(nil, 'PowerPoint-Bildschirmpräsentation - [gruenes_licht.pptm]');
   dwStyle := GetWindowLong(hWnd, GWL_STYLE);
   SetWindowLong(hWnd, GWL_STYLE, dwStyle and not WS_OVERLAPPEDWINDOW);
   SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOREPOSITION or SWP_NOSIZE
      or SWP_NOZORDER or SWP_FRAMECHANGED);
end;

//*** Titelleiste u. Rand eines Fenster anzeigen ***
procedure TForm1.Button_ShowBorderClick(Sender: TObject);
var
   dwStyle                         : Cardinal;
   hWnd                            : THandle;
begin
   hWnd := FindWindow(nil, 'PowerPoint-Bildschirmpräsentation - [gruenes_licht.pptm]');
   dwStyle := GetWindowLong(hWnd, GWL_STYLE);
   SetWindowLong(hWnd, GWL_STYLE, dwStyle or WS_OVERLAPPEDWINDOW);
   SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOREPOSITION or SWP_NOSIZE
      or SWP_NOZORDER or SWP_DRAWFRAME or SWP_FRAMECHANGED);
end;