ich habe eine freie Labelkomponente die man um 360° drehen kann, leider zeichnet diese nicht nur auf der TForm sondern auch auf dem Desktop (winXP/CBuilder5)

Ich denke mal das DC := GetDC(0); ist dafür verantwortlich, weil 0 der Desktop ist, aber was muss ich dann dort eintragen damit es nicht mehr parallel auf dem Desktop dargestellt wird?

Quelle: http://www.micrel.cz/delphi/download/jblabel3d.zip

StrPCopy(cStr,aTxt);
  DC := GetDC(0);
  hSavFont := SelectObject(DC,Font.Handle);
  {$IFDEF WIN32}
  GetTextExtentPoint32(DC,cStr,Length(aTxt),Size);
  {$ELSE}
  GetTextExtentPoint(DC,cStr,Length(aTxt),Size);
  {$ENDIF}
  SelectObject  (DC,hSavFont);
  ReleaseDC(0,DC);

Kann mir da jemand weiterhelfen?

Im Builder haben die von TControl abgeleiteten Klassen die Eigenschaft Handle, die das notwendige WinAPI-Handle zurückgibt.

bis bald
akari

Okay Handle wird erst bei TWinControl eingeführt, TLabel ist aber nur von TControl abgeleitet. Das heißt du hast so einfach keinen einfluß auf das Zeichenverhalten von TLabel. Du müßtest von TLabel ableiten und die Zeichenmethode überschrieben oder gleich eine neue Komponente erstellen und alles selber machen.

bis bald
akari

TLabel3D = class(TCustomLabel)

{==========================================================================}
procedure TLabel3D.DrawAngleText(aCanvas:TCanvas;aRect:tRect;aAngle:Integer;aTxt:String);
{==========================================================================}
{ Draw text with FontIndirect (angle -> escapement)                        }
{--------------------------------------------------------------------------}
var LFont             : TLogFont;
    hOldFont, hNewFont: HFont;
begin
  CalcTextPos(aRect,aAngle,aTxt); // Code aus Post #1

  GetObject(aCanvas.Font.Handle,SizeOf(LFont),Addr(LFont));
  LFont.lfEscapement := aAngle*10;
  hNewFont := CreateFontIndirect(LFont);
  hOldFont := SelectObject(aCanvas.Handle,hNewFont);

  aCanvas.TextOut(aRect.Left,aRect.Top,aTxt);

  hNewFont := SelectObject(aCanvas.Handle,hOldFont);
  DeleteObject(hNewFont);
end;

Du kannst natürlich auch einfach die Handle-Eigenschaft des Canvas-Objektes nehmen.

bis bald
akari

Habs mit GetDC(Application.Handle) probiert und er compiliert es Fehlerfrei, aber die Anzeige auf dem Desktop ist trotzdem immernoch.

Ist auch Quatsch, da das Application-Fenster ein maximiertes "durchsichtiges" Fenster ist. Versuch mal mit GetDC(Parent.Handle).