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

[Zacherl]

Da die Funktion keine Methode eines Formulars mehr ist, musst du wohl oder übel einen weiteren Parameter, nämlich das Handle des Forms übergeben. Fals auf jedem Form so ein Panel liegt, dann könntest du das Handle des Forms auch über TForm(ChPanel.Parent).Handle 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

[daywalker9]

Sauberer wäre hier vielleicht doch:


function GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;
Dann ist es egal welches Control du in der Funktion mitgibst