TField.DisplayWidth und TDataModule

[MmVisual]

Hallo,

Ich habe eine Routine geschrieben, die automatisch beim Beenden vom Programm alle Tabellen im Formular findet und je Feld die "DisplayWidth" abspeichert.
Das funktioniert auch alles wenn das Formulat eine TForm ist. Jedoch wenn ich das bei TDataModule genau gleich mache, dann ist "DisplayWidth" immer 0.
Also es gibt bei mir nur eine Einzige Rotine ich rufe ich immer bei OnDestroy auf, die macht das dann, egal ob TForm oder TDataModule.

Ich verstehe jetzt nicht warum das bei TDataModule anders ist. Muss man noch eine Option in TDataModule aktivieren?
Ich meine auch dass es früher mal funktioniert hatte. Ich weiß jetzt nicht ob es an Lazarus V2.0.12 oder Zeos liegt. Doch ich denke es liegt an Lazarus, da TField ja nicht von Zeos kommt. Sollte es doch an Zeos liegen, schreibe ich bei denen ein Bugticket.

Bild1.png (5.54 KiB) 1950 mal betrachtet

Vielen Dank für die Hilfe.

VG Markus

[af0815]

In einem nicht visuellen Datamodul, kann es keine Zuordnung zu visuellen Eigenschaften geben. Anhand welcher Parameter soll da eine Breite in der Anzeige errechnet werden?
Kann sein, das dein Code funktioniert, solange ein visuellen Objekt gebunden ist. Das vermute ich, das sich die Reihenfolge beim Zerstören geändert hat.

[MmVisual]

Mein Formular ist schon so dermaßen überladen, da dachte ich lagere mal langsam die TZQuery auf das TDataModul aus. Das TDataModul ist ja im Prinzip auch eine "Müllhalde" für alles was mit Datenbanken zu tun hat. (Bzw. wenn man Query's in mehreren Formularen nutzen möchte)
Und in der TForm.DBGrid.Dataset kann man ja TDataModul.TZQuery problemlos zuweisen.

[af0815]

Dann sollte nur das Form die visuellen Sachen speichern, das macht im DM ja keinen Sinn.

[MmVisual]

Finde ich dennoch nicht richtig dass in TDM das "DisplayWidth" einfach immer 0 ist.

[charlytango]

Habe ich das richtig verstanden dass du die DisplayWidth eines TDataModule auslesen möchtest?
Wozu ?

Ein TDatamodule ist ein "visueller" Container für nicht visuelle Objekte.
Ein TDM ist im laufenden Programm ja nicht sichtbar ???

Du wirst dir sicher etwas dabei gedacht haben, mir erschließt sich der Sinn hier nicht ??

Bezüglich überladener Formulare empfehle ich den Gebrauch von eingedockten Formularen oder Frames.

[af0815]

Finde ich dennoch nicht richtig dass in TDM das "DisplayWidth" einfach immer 0 ist.

Ist völlig korrekt, das DM ist nicht sichtbar bzw. Hat kein Fenster, somit kann die DisplayWidth nur 0 sein.

[MmVisual]

Das ist es eben, wenn den TDataModul als Container für Daten verwendet, die man wiederum mit einem Formular verbindet, dann gibt es Gulasch und funktioniert nicht korrekt.

Das heißt aber auch, wenn man so ein TDataModul nicht als Container für Daten nutzen kann, dann ist das ganze TDataModul komplett sinnlos dass es überhaupt existiert. -> sollte vielleicht mal jemand löschen.

PS: Damals, vor vielen Jahren, als ich noch Delphi programmiert hatte, hat das mit der DisplayWidth im TDataModule noch korrekt funktioniert. Daher verstehe ich nicht wieso das nun so "hipp" ist dass es jetzt wegopimiert wurde.

Grüße Markus

[gladio]

wenn du so sehr Wert auf das DisplayWidth legst, dann kannst du doch deine Danetnkomponenten auf ein normales Formular legen, das du niemals anzeigst

[MmVisual]

Jop, werde ich wohl so umbauen müssen.

[wp_xyz]

Jetzt müsst ihr mir Nachhilfe geben: DisplayWidth ist doch eine Eigenschaft von TField. Was hat das damit zu tun, ob die zugehörige Dataset-Komponente auf einem Formular oder einem Datenmodul liegt?

[MmVisual]

Jop. Genau. Da war ich auch erstaunt.

[wp_xyz]

Das beigefügte Beispiel zeigt, dass Field.DisplayWidth sehr wohl sinnvolle Werte enthält, wenn der zugehörige Dataset auf einem Datamodule liegt.

[MmVisual]

Ich muss dir recht geben, dein Beispiel, umgebaut auf Zeos funktioniert. Ich habe in DataModuleCreate() die DislayWidth auf einen anderen Wert gesetzt, der wurde korrekt übernommen und im DataModuleDestroy() ist der auch noch sichtbar.

Sorry, dass ich euch belästigt habe, ich habe danach schon ziemlich lange gesucht, dann muss der Fehler doch noch wo anders begraben sein.

Dankeschön,

VG Markus

[af0815]

Ich schrieb am Anfang, das wenn die Verbindung zur visuellen Komponente fehlt es zu Problemen kommt.

Ich bin immer noch der Meinung, das dort dein Problem begraben ist. Den wenn es keine visuelle Komponente zu dem Zeitpunkt gibt, so kann es kein Ergebnis geben.

Eine Abhilfe könnte sein, das Datenmodul selbst zu erstellen und auch selbst freizugeben.