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
)
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)