bestimmten Code einer Komponente einmalig zur Laufzeit ausführen

[Daniel L.]

Lazarus 3.2
Win-11, Linux-Mint

Hallo zusammen,

eine von mir abgeleitete Komponente von TStringGrid soll (nur!) zur Runtime-Creation einmalig einen bestimmten Code ausführen.

Überschreibe ich dafür den constructor create,
wird bereits zur Designtime-Creation der Code ausgeführt, (und dann noch mal zur Laufzeit).

Danke für Hinweise,

Daniel

[af0815]

Sowas in der Art ?

Code: Alles auswählen

  if (csDesigning in Sender.ComponentState) then EXIT;

Quelle: https://www.freepascal.org/docs-html/rt ... state.html und https://www.freepascal.org/docs-html/rt ... state.html

[m.fuchs]

Du könntest ComponentState auswerten. Wenn csDesigning in dem Set enthalten ist, sollte deine Komponente im Designer sein.

Ist jetzt allerdings nur aus dem Kopf und ungetestet.

[Daniel L.]

vielen Dank euch beiden,
ja, so gehts!

Code: Alles auswählen

if (csDesigning in AOwner.ComponentState) then...

Gruß Daniel