Nun der Titel ist sicherlich einfach.
Die lösung warscheinlich auch. Nur ich kenne sie nicht und finden im WWW kann ich sie auch nicht.
Ich habe vor die Schöne funktion Panels in Glass Oprik nicht in Jedem Formular verwenden zu müssen. Sondern das einmal zu schreiben und dann einfach immer nur das Panel an zu geben und schon passiert der Effekt.
Bisher war das so gehalten Quelle (
Hier) :
Delphi-Quellcode:
procedure TMainForm.SetupGlass;
begin
if CompositingEnabled then
begin
BottomPanel.Color := clBlack;
ExtendGlass(Self.Handle, Rect(0, 0, 0, BottomPanel.Height));
end else
begin
ChPanel.Color := Color;
end;
end;
nun möchte ich aber das es So geht :
Delphi-Quellcode:
rocedure SetupGlass(var ChPanel : TPanel);
begin
if CompositingEnabled then
begin
ChPanel.Color := clBlack;
ExtendGlass(ChPanelForm.Handle, Rect(0, 0, 0, ChPanel.Height));
end else
begin
ChPanel.Color := ChPanel.Color;
end;
end;
An der stelle wo ChPanelForm.Handle steht soll dann wie der Name schon sagt das
Handle des Forms gefunden werden damit das umgesetzt werden kann.
nur wie mache ich das ?
Danke schonmal im Vorraus !
gruss Sascha