Hallo liebe Delphi-Freunde,

ich hoffe Ihr könnt mir bei meinem folgenden Problem helfen.
Ich Benutze ja die BDE Delphi 2007 und da gibt es ja die tolle Eigenschaft „SheetOfGlass“… Richtig toll dies transparenten Fenster!

Mein Programm benutzt diese transparenten Fenster, nur ist das Problem das meine auf das Formular gebrachten Komponenten(TLabels, TSpeedButtons usw.) auf einen dunklen Hintergrund nicht mehr zu erkennen sind. Nun kann man aber erkennen, dass die Caption eines jeden Formulars solch einen diffusen Hintergrund hat. Nun würde ich gerne dies Eigenschaft all meinen Komponenten zuweisen. Aber wie?

(Ich stell mir das in etwa so vor )

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit21;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm21 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure Draw;
  public
    { Public-Deklarationen }
  end;

var
  Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm1.Draw;
begin
  ?
  ?
  ?
  ?
  ?
  ?
end;

procedure TForm21.FormCreate(Sender: TObject);
begin

  DoubleBuffered:= TRUE;
  
  Label1.Draw;
  Label2.Draw;
  Label3.Draw;
  Label4.Draw;
  Label5.Draw;
  SpeedButton1.Draw;
  SpeedButton2.Draw;
  Image1.Draw;
end;

Über Eure Hilfe währe ich sehr Glücklich!

LG Dennis
(Dennis_Wolfram)

Hallo,

für dieses Problem habe ich ein GlowLabel entwickelt. Vielleicht kannst Du die Technik auch für Speedbuttons anpassen.

Gruß
xaromz