Notification, falls Komponente nicht mehr sichtbar

[ghubi01]

Hallo hellion,

vielleicht hilft Dir folgende Funktion etwas weiter:

Delphi-Quellcode:

var
  cbxBool: Boolean;
  ...
  begin
    cbxBool:=IsWindowVisible(CheckBox1.Handle);
  ...
  end;

Wenn CheckBox1.Visible True und die GroupBox1.Visible False ist, und somit Beides unsichtbar,
dann gibt IsWindowVisible False zurück.

[hellion]

Hallo ghubi01,

Ja, das kann ich schon so machen, aber halt nur von extern. Also kann ich es z.B. in der TForm-Instanz machen.
Was ich aber brauche, ist ein Event innerhalb meiner TComboBox-Klasse "Parent.Visible wurde geändert" (PARENTVISIBLECHANGED), quasi eine analoge Message zu z.B. CM_PARENTFONTCHANGED oder CM_PARENTCOLORCHANGED.

[ghubi01]

Hallo hellion,

ich hab hierhttps://www.delphipraxis.net/96445-a...reagieren.html im Forum noch etwas gefunden das Dir weiterhelfen könnte.

Mit den gezeigten Beispielen könnte man auf Änderungen von Visible der GroupBox reagieren und ggf. ein Property in der untergeordneten Checkbox einfügen und setzen.

[ghubi01]

Hallo hellion,

hier hätte ich noch eine Idee:

Delphi-Quellcode:

const
  MY_MSG = WM_USER + 1;

type
  TCheckBox = class(Vcl.StdCtrls.TCheckBox)
  private
    FParantVisible: Boolean;
  protected
    procedure ParentMsg(var Msg: TMessage); Message MY_MSG;
  public
    property ParantVisible: Boolean read FParantVisible;
  end;

  TComboBox = class(Vcl.StdCtrls.TComboBox)
  private
    FParantVisible: Boolean;
  protected
    procedure ParentMsg(var Msg: TMessage); Message MY_MSG;
  public
    property ParantVisible: Boolean read FParantVisible;
  end;

  ...

procedure TCheckBox.ParentMsg(var Msg: TMessage);
begin
  FParantVisible:=Boolean(Msg.WParam);
end;

procedure TComboBox.ParentMsg(var Msg: TMessage);
begin
  FParantVisible:=Boolean(Msg.WParam);
end;

  ...

procedure TForm2.TestClick(Sender: TObject);
var 
  MyMsg: TMessage;
begin
  //Nach jedem Visible-Wechsel eine Botschaft an Alle senden
  GroupBox1.Visible:=not GroupBox1.Visible;
  MyMsg.Msg:=MY_MSG;
  MyMsg.WParam:=integer(GroupBox1.Visible);
  MyMsg.LParam:=0;
  MyMsg.Result:=0;

  GroupBox1.Broadcast(MyMsg); // Die Message geht an alle Controls der GroupBox1
end;