Objekt, was zuvor den Fokus hatte ermitteln

[Medium]

Das schnüffelt mir eher nach einer statischen Klasse, die sich um solche Dinge kümmert. (Im Grunde eine Art Singleton.) Die verhält sich am Ende ähnlich wie eine globare Variable, ist aber neben OOP konform auch durch die Notwendigkeit der qualifizierteren Referenzierung sicherer zu verwenden als globale Variablen.

Delphi-Quellcode:

unit uGlobalControlManager;

interface

type
  TGlobalControlManager = class
  private
    class var FLastActiveControl: TWinControl;
  public
    class procedure FocusChanged(var Message: TCMFocusChanged);
    class procedure FocusLastActiveControl;
    // Und weitere wie in Sir Rufos frmTemplate Klasse
  end;

implementation

class procedure TGlobalControlManager.FocusChanged(var Message: TCMFocusChanged);
begin
  // Wie von Sir Rufo in seiner frmTemplate Klasse
end;

...

Und dann das in die Basisklasse von Sir Rufo einfuckeln:

Delphi-Quellcode:

unit RofuForm;

uses
  ..., uGlobalControlManager;

type
  TfrmTemplate = class(TForm)
  private
    procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
  protected
    procedure FocusLastControl;
  public
  end;

implementation

procedure TfrmTemplate.CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
begin
  TGlobalControlManager.FocusChanged(Message);
end;

procedure TfrmTemplate.FocusLastControl;
begin
  TGlobalControlManager.FocusLastControl;
end;

...

Und auf gleiche Weise ließe sich eine Basisklasse für deine Frames zwischen schieben, die die gleichen Funktionen mit Weiterleitung auf die TGlolbalControlManager-Klasse implementiert, und schon kannst du diese Funktionalität überall nutzen, und es ist völlig egal in welcher Form oder in welchem Frame das zuzletzt fokussierte Control lag.

[Furtbichler]

Und was ist, wenn zwei Formulare deine statische Klasse verwenden?

Zitat von Sir Rufo:

Zitat von Furtbichler:

Zitat von Sir Rufo:

Ich weiß nicht warum du immer auf dieser globalen Variablen herumreitest.
Leg das einfach in einer Klassenvariablen ab und gut ist

Wäre ein privates Feld nicht besser? (Stichwort: mehrere Instanzen einer Form)

Das meinte ich doch
...

Dann sag's doch Klassenvariable = 'class var'.

Und "ja", ich bin ein Schlugkeisser.

[Sir Rufo]

Zitat von Furtbichler:

Und was ist, wenn zwei Formulare deine statische Klasse verwenden?

Zitat von Sir Rufo:

Zitat von Furtbichler:

Zitat von Sir Rufo:

Ich weiß nicht warum du immer auf dieser globalen Variablen herumreitest.
Leg das einfach in einer Klassenvariablen ab und gut ist

Wäre ein privates Feld nicht besser? (Stichwort: mehrere Instanzen einer Form)

Das meinte ich doch
...

Dann sag's doch Klassenvariable = 'class var'.

Und "ja", ich bin ein Schlugkeisser.

Jo, da hast du alledings recht ...

Aber hast du da nicht noch den Meister bei deinem Titel vergessen?

[Medium]

Zitat von Furtbichler:

Und was ist, wenn zwei Formulare deine statische Klasse verwenden?

Dann bekommt eben nach Aufruf von FocusLastControl das vorher fokussierte Control den Fokus, auch wenn es auf einem anderen Formular liegt. Ich halte das für ein nettes Feature, vor allem weil es die hier nötige Brücke zwischen "Host"-Formular und den Frames abbildet, und man könnte ebenso ein Multi-Form Projekt damit machen, dass ein konsistentes Verhalten böte. Das hatte ich bewusst so gemacht - ich hoffe dabei keinen gröberen Denkfehler zu haben.