[gelöst] OnShow für TFrame oder Alternative

[kralle]

OS: Linux Mint 17.3 64-Bit
FPC: 3.0.0
Laz: 1.6

Moin,

ich bin auf der Suche nach einem Weg ein "OnShow"-Ereignis für ein Frame zu erstellen.
Das Einzige was ich gefunden habe, ist eine Delphi-Lösung die nur unter Windows läuft weil sie eine Windows-Message nutzt.

Gibt es vielleicht eine Alternative? Ich möchte z.B.

Code: Alles auswählen

Edit1.Enable:=true;

das auf einem Frame liegt setzen je nach Inhalt einer Variablen in einen Datenmodul.
Wie würdet ihr das lösen? Das ich das über das Formular das die Frames aufnimmt machen könnte, weiß ich, aber geht es auch auf obigen Weg?

Gruß Heiko

[Marsmännchen]

Hi,

nur zum besseren Verständnis: Wenn der Frame (bzw. die Form, in der er liegt?) angezeigt wird, dann sollen Komponenten, die in diesem Frame sind, auf die Variable in einem Datenmodul reagieren, ja? Kannst du denn nicht das OnShow-Event der Form benutzen, um dann den Frame mit den Daten des Datenmoduls zu pimpen? Im Sinne von: Wenn die Form angezeigt wird, dann check die Daten des Datenmoduls und dann setze die entsprechenden Eigenschaften des Frames? Die Steuerung würde also über die Mutterkomponente des Frames erfolgen. Oder muss der Frame das partout selber regeln?

[Warf]

Nicht getestet aber so sollte es gehen:

Code: Alles auswählen

 
  TFrame1 = class(TFrame)
  private
    { private declarations }
  protected
    procedure SetVisible(Value: Boolean); override;
  public
    { public declarations }
  end;
 
implementation
 
{$R *.lfm}
 
    procedure TFrame1.SetVisible(Value: Boolean);
    begin
      if not Visible and Value then
      begin
       // OnShow
 
      end;
      inherited;
    end;   

Dabei überlädst du einfach die Methode die Aufgerufen wird sobald der Visible Wert von dem Frame verändert wird.

Hi,

nur zum besseren Verständnis: Wenn der Frame (bzw. die Form, in der er liegt?) angezeigt wird, dann sollen Komponenten, die in diesem Frame sind, auf die Variable in einem Datenmodul reagieren, ja? Kannst du denn nicht das OnShow-Event der Form benutzen, um dann den Frame mit den Daten des Datenmoduls zu pimpen? Im Sinne von: Wenn die Form angezeigt wird, dann check die Daten des Datenmoduls und dann setze die entsprechenden Eigenschaften des Frames? Die Steuerung würde also über die Mutterkomponente des Frames erfolgen. Oder muss der Frame das partout selber regeln?

Ich persönlich finde es besser Frames komplett autonom zu bauen, sodass man sie mehrfach verwenden kann (also eigene Komponenten mit Designer). Und ich persönlich möchte nur so wenig wie möglich auf das Vaterobjekt zurückgreifen wollen

[Soner]

Wenn du das für Ersatz von OnCreate suchst, dann kannst du AfterConstruction verwenden. Ich habe deinen anderen Beitrag mit OnCreate gelesen, Constructor-Überschreiben bringt nicht viel, weil die Objekte noch nicht erstellt bzw. geladen sind.
Bei TForm wird auch in AfterConstruction das OnCreate-Ereignis aufgerufen.

Code: Alles auswählen

 
  TFrame1 = class(TFrame)
  public
    procedure AfterConstruction; override;
  end;
 

[kralle]

Moin,

Hi,
nur zum besseren Verständnis: Wenn der Frame (bzw. die Form, in der er liegt?) angezeigt wird, dann sollen Komponenten, die in diesem Frame sind, auf die Variable in einem Datenmodul reagieren, ja?

Ja, nur die Frames liegen auf dem Formular auf einzelnen Seiten eines TTabSheet.

Kannst du denn nicht das OnShow-Event der Form benutzen, um dann den Frame mit den Daten des Datenmoduls zu pimpen? Im Sinne von: Wenn die Form angezeigt wird, dann check die Daten des Datenmoduls und dann setze die entsprechenden Eigenschaften des Frames? Die Steuerung würde also über die Mutterkomponente des Frames erfolgen.

Wie ich schon schrieb, weiß ich das dieser Weg möglich ist.

Oder muss der Frame das partout selber regeln?

Ich möchte soviel wie möglich durch die einzelnen Frames erledigen lassen.

Gruß Heiko

[kralle]

Hallo,

Nicht getestet aber so sollte es gehen:

Code: Alles auswählen

 
  TFrame1 = class(TFrame)
  private
    { private declarations }
  protected
    procedure SetVisible(Value: Boolean); override;
  public
    { public declarations }
  end;
 
implementation
 
{$R *.lfm}
 
    procedure TFrame1.SetVisible(Value: Boolean);
    begin
      if not Visible and Value then
      begin
       // OnShow
 
      end;
      inherited;
    end;   

Dabei überlädst du einfach die Methode die Aufgerufen wird sobald der Visible Wert von dem Frame verändert wird.

Funktioniert hier nicht.

Ich persönlich finde es besser Frames komplett autonom zu bauen, sodass man sie mehrfach verwenden kann (also eigene Komponenten mit Designer).

Soweit das ich eigene Komponenten bauen kann bin ich leider noch nicht.

Und ich persönlich möchte nur so wenig wie möglich auf das Vaterobjekt zurückgreifen wollen

Das will ich auch nicht.

Gruß Heiko

[kralle]

Moin,

wie ich jetzt feststellen konnte, komme ich mit dem "OnEnter"-Ereignis des Frames (so wie es im Moment aussieht), auch ans Ziel.

Gruß Heiko