NUR bestimmte Objecte Sichtbar?!

[bundy]

Zeichne doch gleich auf dem Desktop

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 DCanvas: TCanvas;
 DHandle: HWND;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
       DCanvas.Handle:=DHandle;
       DCanvas.Font.Color:=clRed;
       DCanvas.Font.Size:=72;
       DCanvas.Brush.Style:=bsClear;
       DCanvas.TextOut(10, 10, 'Ein Schriftzug');
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
        RaiseLastOSError;
    end;
 end
 else
   RaiseLastOSError;
end;

lg
bundy