Erkennen ob ein Fenster verdeckt wird

[dataspider]

Zitat von Delphi.Narium:

Zitat:

Ich hatte die Hoffnung, dass ich mir die Zuweisung des OnActivePageChanged bei jedem PageControl ersparen kann.

Wieviele hast Du denn davon?

Ein abgeleitetes PageControl machen, das schon das entsprechende Ereignis (mit allem Drum und Dran) enthält?

Ok, das hieße dann auch einmal durch den gesamten Quelltext durch und entsprechend anpassen.

Oder das Ereignis zur Laufzeit zuweisen, im FormCreate (o. ä.).

Ist überschaubar - vielleicht 20.
Ich hab halt gern Zusammengehörendes an einer Stelle, wenn dies möglich ist. Das erleichtert die Fehlersuche.
Ich hatte schon ab und zu die Situation, wo ich Fehlerursachen nicht gefunden habe,
weil der verursachende Code dort war, wo ich ihn nie vermutet hätte.

Also, Danke noch mal.
Ich benutze das Event des PageControls.

Frank

[Blup]

Leite deine Unterformulare von einer gemeinsamen Klasse ab, die das entsprechende Ereignis einführt:

Delphi-Quellcode:

type
  TMyPageForm = class(TForm)
  public
    procedure FormChanging(AForm: TForm; var AllowChange: Boolean); virtual; 
  end;

procedure TMyPageForm.FormChanging(AForm: TForm; var AllowChange: Boolean);
begin
  {macht in der Basisklasse erst mal nichts, kann überschieben werden}
end;

Ich gehe davon aus, jede Seite des PageControls hat nur ein Formular.
Im Ereignis des PageControls dann die einzelnen Formulare benachrichtigen:

Delphi-Quellcode:

procedure TForm1.cxPageControl1PageChanging(Sender: TObject; NewPage: TcxTabSheet; var AllowChange:
  Boolean);

  function FindMyPageForm(AWinControl: TWinControl): TMyPageForm;
  var
    i: Integer;
    c: TControl;
  begin
    if Assigned(AWinControl) then
    begin
      for i := 0 to AWinControl.ControlCount - 1 do
      begin
        c := NewPage.Controls[i];
        if c is TMyPageForm then
          Exit(TMyPageForm(c));
        {Rekursion}
        if c is TWinControl then
        begin
          Result := FindMyPageForm(TWinControl(c));
          if Result <> nil then
            Exit;
        end;
      end;
    end;
    Result := nil;
  end;

var
  F, NewForm: TMyPageForm;
  Page: TcxTabSheet;
  i: Integer;
begin
  NewForm := FindMyPageForm(NewPage);

  for i := 0 to TcxPageControl(Sender).PageCount - 1 do
  begin
    Page := TcxPageControl(Sender).Pages[i];
    F := FindMyPageForm(Page);
    if Assigned(F) then
      F.FormChanging(NewForm, AllowChange);
  end;
end;

ungetestet

[Sinspin]

Zitat von Blup:

Leite deine Unterformulare von einer gemeinsamen Klasse ab, die das entsprechende Ereignis einführt

So mache ich das auch. Alle meine Dialoge haben eine gemeinsame Basisklasse.
Die kümmert sich um alle Benachrichtigungen gemeinsam mit einem Pagemanager der das PageControl betreibt.
Verhaltensänderungen sind dann gleichzeitig an allen Forms wirksam.
Ich habe über 200 Formulare die sich darüber verwalten lassen.