Handle eines Form ermitteln.

[dor557]

Du hast mit deiner Antwort mein Problem gelöst Ich danke dir.

nun sieht der Code so aus :

Delphi-Quellcode:

procedure SetupGlass(var ChPanel : TPanel);
begin
  if CompositingEnabled then
  begin
    ChPanel.Color := clBlack;
    ExtendGlass(TForm(ChPanel.Parent).Handle, Rect(0, 0, 0, ChPanel.Height));
  end else
  begin
    ChPanel.Color := ChPanel.Color;
    ChPanel.Visible := false;
  end;
end;

Danke nochmal.
Im anhang auch eine Bildchen das das ergebnis anzeigt