Handle eines Form ermitteln.

[dor557]

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