Zugriff auf Frame-Objekte

[Dennis07]

Zitat:

Zitat von Furtbichler (Beitrag 1167330)

Man Dennis, das ist so banal. Zeig einfach den Code, dann sieht man es sofort.

Delphi-Quellcode:

Type
  TMyFrame = Clas (TFrame)
  ...
  public
    Procedure ChangeLanguage();
  ...
  end;

Das habe ich auch schon probiert, es funktioniert nicht, und das aus 3 Gründen.

1. Wenn ich die Methode "Public" mache, muss ich alle der Objekte aktualisieren, das wäre aber nur eine Frage des Auswand, würde ich sogar in Kauf nehmen
2. Nachdem ich die Objektnamen geändert habe (also von "Button1" auf "MyFrame.Button1") und das ganze kompiliere, kommt die Frage, ob ich uMyFrame in uMyFrame einbinden will, was ja sowieso schon mal blödsinn ist. Wenn ich auf "Ja" klicke und neu starte, kommt die fehlermeldung, dass ich eine Unit nicht in sich selber einbinden könne (was ja auch logisch ist)
3. Naja, ein drittes Problem wäre, dass ich insgesamt 5 Frames habe, und jedes eine "ChangeLanguage"-Prozedur hat. Diese will ich von der Haupt-Unit nacheinander brav aufrufen, deshalb die dekleration innerhalb des Frames

Hier der Header meiner Haupt-Unit:

Delphi-Quellcode:

unit uUpdater;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, ThemeMgr, IniFiles,
  uWelcome, uLicense, uProgress, uFinish;

type
  TfmUpdater = class(TForm)
    pnSettings: TPanel;
    coLanguage: TComboBox;
    laLanguage: TLabel;
    pnButtons: TPanel;
    btCancel: TButton;
    btInstall: TButton;
    laCopyright: TLabel;
    ThemeManager1: TThemeManager;
    procedure Step(StepID: Integer);
    procedure ChangeLanguage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure coLanguageChange(Sender: TObject);
  private
    { Private-Deklarationen }
    Frame_Welcome: TFrame;
    Frame_License: TFrame;
    Frame_Progress: TFrame;
    Frame_Finish: TFrame;

    LangIsGer: Boolean;
    CurrentStep: Integer;
  public
    { Public-Deklarationen }
    Next: String;
    Install: String;
    Finish: String;

    Msg_Cancel: String;
  end;

Hier der Header einer meiner Frame-Units:

Delphi-Quellcode:

unit uLicense;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TfrLicense = class(TFrame)
    laHeader: TLabel;
    reLicense: TRichEdit;
    rbAgree: TRadioButton;
    rbDecline: TRadioButton;
    procedure ChangeLanguage(Ger: Boolean);
    procedure rbAgreeClick(Sender: TObject);
    procedure rbDeclineClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

uses uUpdater;

[daywalker9]

Das klappt natürlich nicht weil du deine Variablen alle als TFrame deklariert hast.


Ändere einfach deine Deklaration von TFrame auf TWelcomeFrame (oder was auch immer)

[Dalai]

Ich frage mich ernsthaft, warum du das Rad neu erfinden musst...

MfG Dalai

[himitsu]

Schön, daß das nun endlich mal geklärt ist. (hat auch lange genug gedauert)
Denn genau deswegen hatte ich danach gefragt.

Zitat:

Delphi-Quellcode:

    Frame_Welcome: TFrame;
    Frame_License: TFrame;
    Frame_Progress: TFrame;
    Frame_Finish: TFrame;

Woher soll eine TFrame-Variable auch die Komponenten/Felder kennen, welche z.B. erst in TfrLicense deklariert wurden?

[Dennis07]

Müsste es nicht reichen, den Befehl

Delphi-Quellcode:

Frame_123 := TMyFrame.Create

zu geben??

[daywalker9]

Zitat:

Zitat von Dennis07 (Beitrag 1167356)

Müsste es nicht reichen, den Befehl

Delphi-Quellcode:

Frame_123 := TMyFrame.Create

zu geben??

Nein, TFrame weiß nichts von deiner Funktion ChangeLanguage in TfrLicence (da Du ja von TFrame ableitest). Ändere einfach TFrame auf TfrLicence ab und kompiliere.

[stahli]

Nur noch ergänzend:

Frame_123 ist ein Zeiger auf eine Speicherstelle. Der Compiler interpretiert diese als TFrame da Du das so angegeben hast.
Willst Du das Objekt in anderer Form nutzen, musst Du casten:

Delphi-Quellcode:

Frame_123: TFrame;
...
Frame_123 := TMyFrame.Create;
...
if Frame_123 is TMyFrame then
  (Frame_123 as TMyFrame).DoSpezial;

Das ist natürlich etwas umständlich und sollte vermieden werden.

[Dennis07]

Hi Leute,
Danke für eure Hilfe, jetzt funktioniert alles.
mfg