[erledigt] OnCreate für TFrames

[kralle]

OS: Linux Mint 17.3
FPC: 3.0.0
Laz: 1..6

Hallo,

ich brauche in TFrames das "OnCreate"-Ereignis. Ich habe also Suchmaschinen befragt und ein Beispiel übernommen.
Leider funktioniert das nicht. Ich habe da bestimmt etwas falsch verstanden oder nicht richtig umgesetzt.
Ich bekomme die angehängte Fehlermeldung.
Mein Quelltext sieht so aus:

Code: Alles auswählen

 
type
  TFrameMaterial = class(TFrame)
    lbledt_ArtikelAnzahl: TLabeledEdit;
    chklst_Artikeldaten: TCheckListBox;
    procedure lbledt_ArtikelAnzahlKeyPress(Sender: TObject; var Key: Char);
    procedure chklst_ArtikeldatenClickCheck(Sender: TObject);
    procedure lbledt_ArtikelAnzahlChange(Sender: TObject);
  private
    { Private-Deklarationen }
    MyObj: TObject;           // Um OnCreate_Ereignisse zu erzeugen
  public
    { Public-Deklarationen }
     constructor Create(TheOwner: TComponent); override;
      destructor Destroy; override;
  end;
 
implementation
 
{$R *.lfm}
 
constructor TFrameMaterial.Create(TheOwner: TComponent);
// Erzeugt das OnCreate-Ereignis
begin
    inherited Create(TheOwner);
    MyObj := TObject.Create;
  end;
 
destructor TFrameMaterial.Destroy;
// Erzeugt das OnDestroy-Ereignis
begin
    MyObj.Free;
    inherited Destroy;
  end;  
 

Da der Debugger schön in das Assembler-Fenster springt, bekomme ich ja auch nicht angezeigt welche Zeile den Fehler auslöst.
Wenn ich Haltepunkte setze, dann sind das immer welche mit rotem Fragezeichen, und die werden nicht erreicht.

Warum kann bei mir Code nicht einfach mal funktionieren?

Gruß Heiko

[Socke]

Die Fehlermeldung sollte nicht mit dem Konstruktor oder Destruktor zusammenhängen.
Die LFM-Datei (Layout des Frames) scheint nicht zur Unit zu passen. Versuch mal das Projekt erneut in Lazarus zu öffnen (Lazarus ist hier gesprächiger als die Exception im Programm).

[Warf]

Im Asm Fenster steht in der ersten Zeile der Funktionsname, das sollte hilfreich sein, das überladen vom Konstruktor eines Frames funktioniert bei mir super.

[kralle]

Hallo,

Im Asm Fenster steht in der ersten Zeile der Funktionsname, das sollte hilfreich sein, das überladen vom Konstruktor eines Frames funktioniert bei mir super.

CLASSES$_$TREADER_$__$$_FINDMETHOD$TCOMPONENT$ANSISTRING$$POINTER (116)

Sagt dir das was?

Gruß Heiko

[kralle]

Moin,

Die Fehlermeldung sollte nicht mit dem Konstruktor oder Destruktor zusammenhängen.

denke ich auch nicht mehr, da ich die Zeilen auskommentiert habe.

Die LFM-Datei (Layout des Frames) scheint nicht zur Unit zu passen. Versuch mal das Projekt erneut in Lazarus zu öffnen (Lazarus ist hier gesprächiger als die Exception im Programm).

Neues Öffnen geht, Compilieren geht, aber beim Start in der IDE kommt diese Meldung.
Leider springt mein Lazarus nicht in die Codezeile die den Fehler auslöst, sondern gibt die Meldung aus und ruft dann das Assembler-Fenster auf.
Irgendwas muß ich da noch einrichten.

Gruß Heiko

[Marsmännchen]

Hi,
die Fehlermeldung ist mir auch völlig unklar (die Fehlermeldung meckert wegen einer Property, aber du hast ja gar keine in deinem Code drin), aber hey, ich bin ja auch noch kein Fachmann.
Mir ist etwas anderes aufgefallen: Wozu brauchst du das OnCreate-Event für den Frame? Willst du private Variablen des Frames initialisieren oder willst du andere Objekte über die Entstehung des Frames in Kenntnis setzen.
Deinen Beispielcode habe ich hier gefunden: http://wiki.freepascal.org/Frames, das ist er doch, oder? So wie ich das sehe, wirst du damit aber kein OnCreate-Event erzeugen, sondern der Konstruktor des Frames übernimmt lediglich eine Teilaufgabe dieses Form-Ereignisses, nämlich das Initialisieren privater Variablen.
Wenn du andere Komponenten über die Entstehung des Frames informieren willst, könntest du händisch das Observerpattern hierfür implementieren und dir quasi dein eigenes Event schreiben. Sowas habe ich selbst schon hinbekommen und könnte ggf. etwas Beispielcode zeigen, falls gewünscht.
Ob das jetzt eine vernünftige Lösung wäre, dazu könnten die Fachleute vielleicht noch etwas sagen

[kralle]

Moin,

Mir ist etwas anderes aufgefallen: Wozu brauchst du das OnCreate-Event für den Frame? Willst du private Variablen des Frames initialisieren oder willst du andere Objekte über die Entstehung des Frames in Kenntnis setzen.

Ersteres. Ich ich setze in einem Frame eine Variable in einem Datamodul und die anderen Frames sollen je nach Inhalt der Variablen beim Create oder noch besser beim Show, entsprechende Objekte im Frame aktivieren oder deaktivieren.

Deinen Beispielcode habe ich hier gefunden: http://wiki.freepascal.org/Frames, das ist er doch, oder? So wie ich das sehe, wirst du damit aber kein OnCreate-Event erzeugen, sondern der Konstruktor des Frames übernimmt lediglich eine Teilaufgabe dieses Form-Ereignisses, nämlich das Initialisieren privater Variablen.

Wenn das bedeutet das ich an der Stelle sagen kann TEdit.Enable:=False - dann ist das genau das was ich brauche.

Gruß Heiko

[kralle]

Moin,

Die LFM-Datei (Layout des Frames) scheint nicht zur Unit zu passen.

Wie kann ich feststellen, welche Paarung nicht passt?

Gruß Heiko

[Marsmännchen]

...Wenn das bedeutet das ich an der Stelle sagen kann TEdit.Enable:=False - dann ist das genau das was ich brauche.

... dann habe ich wohl doch in die falsche Richtung gedacht und man muss irgendwie rausbekommen, woher der verdammte Fehler stammt...

[kralle]

Moin,

ich habe die Ursache für die Fehlermeldung gefunden.

Im Objektinspektor war beim "OnChange"-Ereignis eine Procedure eingetragen die nicht existierte.
Da wäre eine Fehlermeldung wie "Procedure nicht vorhanden" schöner gewesen.

Jetzt kann ich mich wieder dem OnCreate-Problem zuwenden.

Gruß Heiko

[kralle]

Moin,

also das mit dem OnCreate funktioniert nicht wie erhofft.
Die Variablen werden nur einmal gesetzt und bekommen keine Veränderungen gefunden - was ja auch logisch ist.
Ich mache dieses Thema jetzt zu.

Gruß Heiko