Tweet
Weiß irgend jemand woher der Fehler stammen könnte. Ich hab einen einfachen Bildschirmschoner programmiert nur um das mal ausprobiert zu haben und ab und zu wenn der den Preview-Modus(der Modus bei dem die kleine Vorschau in der Systemsteuerung zu sehen ist) startet bzw. wenn er in dem Modus aufgerufen wird erscheint eben dieser Fehler. Aber nur manchmal. Was könnte das sein ? Ich hab das Handle von dem zweiten Parameter der von der Systemsteuerung übergeben wird. Der Fehler muss ja warscheinlich irgendwo in dem Bereich liegen in dem gezeichnet wird. Aber wo und vor allem warum ?
Form1.create..
begin
parameter2:=paramstr(2); //Parameter für Handle
hPrevWnd := StrToInt(Parameter2);
PrevWndDC := GetDC(hPrevWnd);
Canvas2.Handle := PrevWndDC;
end;
if Modus = 3 then //Modus für Vorschau
begin
for ZLl := 1 to 5 do
begin
SIZE := Random(3); // Zeichnet die Vorschau(vorerst nur Kreise)
Canvas2.Pen.Color := Col[Random(10) + 1];
X1 := Random(little_window_width - 4);
Y1 := Random(little_window_height - 4);
Canvas2.Ellipse(X1 - SIZE, Y1 - SIZE, X1 + SIZE, Y1 + SIZE);
Application.ProcessMessages;
end;
if not IsWindowVisible(hPrevWnd) then
Form1.Close;
end;
PS: Bin noch Anfänger in Delphi und wusste nicht genau wo diese Frage sonst hingehört hätte
Form1.create..
begin
parameter2:=paramstr(2); //Parameter für Handle
hPrevWnd := StrToInt(Parameter2);
PrevWndDC := GetDC(hPrevWnd);
Canvas2.Handle := PrevWndDC;
end;
if Modus = 3 then //Modus für Vorschau
begin
for ZLl := 1 to 5 do
begin
SIZE := Random(3); // Zeichnet die Vorschau(vorerst nur Kreise)
Canvas2.Pen.Color := Col[Random(10) + 1];
X1 := Random(little_window_width - 4);
Y1 := Random(little_window_height - 4);
Canvas2.Ellipse(X1 - SIZE, Y1 - SIZE, X1 + SIZE, Y1 + SIZE);
Application.ProcessMessages;
end;
if not IsWindowVisible(hPrevWnd) then
Form1.Close;
end;
PS: Bin noch Anfänger in Delphi und wusste nicht genau wo diese Frage sonst hingehört hätte
Comment