Komponentenentwicklung Problem mit AutoSize

[Optiplex]

Hallo DP’ler ,
Ich habe mal wieder ein Problem mit einer Komponente
Die Komponente soll die Eigenschaft AutoSize besitzen, was Sie auch als gerbte Eigenschaft schon hat, also nichts leichter als das dachte ich und setze die Eigenschaft auf published.

Property AutoSize default true;

Im überschrieben Paint reagierte ich mit einer Abfrage darauf.

So und nun zu meinem Problem, wie bekommt meine Komponente mit, dass der Wert von AutoSize sich geändert hat, wenn ich Autosize auf false stelle passiert nämlich nichts. Gibt es vielleicht eine Message auf die man reagieren kann, sowie es beim Caption die Message CM_TEXTCHANGED gibt, oder wie bekommt meine Komponente sonst mit, dass sich der Wert geändert hat und Sie sich neu zeichnen muss.

[BAMatze]

Du müsstest eigentlich in der Lage sein, dir dort selber mit WM_User eine Nachricht zu erzeugen. Also als const AutoSizeChanged = WM_User+1 (glaube so wird das deklariert) und dann als Message-Funtkion:

procedure AutoSizeChange(var MSG: TMessage);message AutoSizeChanged; // Hier reinschieben, wie du darauf reagieren willst in deinem Setter schreibst dir dann deine PostMessage:
PostMessage(Form1.Handle, AutoSizeChanged, 0, 0); Dann solltest erstmal zumindest mitbekommen, dass etwas passiert in deiner Variable AutoSize. Ist erstmal nur aus dem Kopf hier her geschrieben und eine Idee, so hab ich mal Fenster sich schließen lassen, hier mal der Threat dazu, vieleicht findest hier noch ein paar mehr Anregungen. Denke das könnte dir helfen.

MfG
BAMatze

PS.: Ansonsten könntest auch mit Events arbeiten.

[DeddyH]

Dann kann man den entsprechenden Code doch auch gleich im Setter hinterlegen

[BAMatze]

Zitat von DeddyH:

Dann kann man den entsprechenden Code doch auch gleich im Setter hinterlegen

da hast natürlich Recht

[jaenicke]

Den Setter muss man natürlich auch erst einmal schreiben und daher die Eigenschaft selbst mit Getter und Setter neu hinschreiben. In Getter und Setter kann man dann darauf reagieren und mit inherited AutoSize ggf. auf die geerbte Eigenschaft zugreifen.

[Optiplex]

Hallo zusammen,
Eine neue Variable ist eigentlich nicht die Lösung, da ja die Eigenschaft schon existiert und ich nur mitbekommen muss wann sie sich ändert, um darauf zu reagieren. Eine neue Eigenschaft mit Set und Get ist schnell programmiert, aber dann habe ich zwei Eigenschaften die dann das gleiche leisten sollen, und das möchte ich nicht. Es müsste meiner Meinung nach eine Message CM_xxxxxxxxx ausgelöst werden, nur die kann ich niegends finden.

Dieter

[jaenicke]

Zitat von Optiplex:

Eine neue Eigenschaft mit Set und Get ist schnell programmiert, aber dann habe ich zwei Eigenschaften die dann das gleiche leisten sollen

Nein, eine gleichnamige, die die ursprüngliche anspricht...
Du kannst ja wie gesagt mit "inherited AutoSize" auf die der Oberklasse zugreifen.

// EDIT:
Stimmt, das geht auch einfacher, ein Blick in den mitgelieferten Quelltext sagt mir:
Du kannst einfach AdjustSize überschreiben, das wird aufgerufen, wenn die Eigenschaft verändert wird.

Eigentlich hätte ich das wissen müssen, ich habe nicht dran gedacht...

[Optiplex]

Danke für deine Antwort Jaenicke,
kannst du mir die komplette Syntax von AdjustSize geben damit ich diese überschreiben kann, ich habe nähmlich nur Delphi 2005 und da sind keine Quelltexte dabei.

Gruss Dieter

[jaenicke]

Dann rate ich dir Turbo Delphi herunterzuladen, das ist kostenlos und enthält (weil es eine Professional Version ist) auch die Quelltexte.
http://www.delphi-library.de/viewtopic.php?p=539975
(Nebenbei hat es auch deutlich weniger Fehler usw.)

Die Syntax ist einfach:procedure AdjustSize; override; (so aus dem Kopf schnell mal geschrieben )

[Optiplex]

Hallo Jaenicke,
vielen dank. Das war genau das was ich gesucht habe, funktioniert jetzt prima. Kannst du mir sagen ob die Eigenschaft Align auch in die procedure AdjustSize geht. Danke auch für den Link zu Turbo Delphi, werde ich mir noch genauer ansehen, allerdings habe ich schon gehört, dass man dort keine Komponenten erstellen kann.

Gruß Dieter