[nonVCL]Bildschirmschoner Vorschau verschieben & schließen

**rollstuhlfahrer**

HI,

ich hab mich mal daran gemacht, einen Bildschirmschoner per nonVCL zu proggen. Schön und gut. Wenn ich das Fenster "Eigenschaften von Anzeige" verschiebe, so wandert der nonVCL-Bildschirmschoner nicht mit. Der, der auf VCL aufsetzt, schon. Wenn ich jetzt das Fenster "Eigenschaften von Anzeige" schließe, bleibt der Bildschirmschoner immernoch online. Im Anhang mal 3 Screenshots.

Wie kann ich
1. das Fenster so mitbewegen, dass es "mitläuft" und
2. das Fenster rechtzeitig beenden?

Ich glaub die Fragen haben etwas gemein, nämlich dass ein Event nicht richtig behandelt wird

Codeausschnitt:

zusammenfalten · markieren

Delphi-Quellcode:

			// Window-Prozedur

function WndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam): lresult; stdcall;

begin

  Result := 0;

  case uMsg of

    WM_DESTROY:    WMDestroy(hWnd);   // Timer löschen und PostQuitMessage();

    WM_CREATE:     hTimer := WMCreate(hWnd);  // Timer erstellen

    WM_CLOSE:      PostQuitMessage(0);

    WM_TIMER:      WMTimer(hWnd); // Timer zum neuzeichnen

  else

    Result := DefWindowProc(hWnd, uMsg, wParam, lParam);

  end;

end;

// Preview-Main

procedure PreView;

var

  parentwindow: HWND;

  Rec: TRect;

begin

Window.hbrBackground := CreateSolidBrush(RGB(0, 0, 0));

Window.hInstance := hInstance;

Window.hIcon := LoadIcon(hInstance,MAKEINTRESOURCE(100));

Window.hCursor := LoadCursor(0, IDC_ARROW);

Window.lpszClassName := ClassName;

Window.lpfnWndProc := @WndProc;

RegisterClassEx(Window);

parentwindow := StrToIntDef(ParamStr(2), 0);

GetWindowRect(parentwindow, Rec);

Width := Rec.Right - Rec.Left;

Height := Rec.Bottom - Rec.Top;

CreateWindowEx(0, ClassName, AppName,

    WS_VISIBLE or WS_CHILD or WS_POPUP,

    Rec.Left, Rec.Top, Width, Height,

    parentwindow, 0, hInstance, nil);

// [...] weiter mit nachrichtenschleife

end;

Bernhard

[nonVCL]Bildschirmschoner Vorschau verschieben & schließen

[nonVCL]Bildschirmschoner Vorschau verschieben & schließ

Forumregeln