TGraphicControl transparent machen

[SirThornberry]

so gehts

Delphi-Quellcode:

type
  TYourControl = class(TGraphicControl)
  private
    fmeinText: String;
    procedure SetMeinText(AText: String);
  public
    procedure Paint(); override;
  published
    property MeinText: String read fmeinText write SetMeinText;
  end;

procedure TYourControl.Paint();
begin
  Canvas.TextOut(0, 0, fmeinText);
end;

procedure TYourControl.SetMeinText(AText: String);
begin
  if (AText <> fmeinText) then
  begin
    fmeinText := AText;
    Self.Invalidate();
  end;
end;