ClassName eines Forms ohne Form-Namen ändern

[hoika]

Hallo #,

weiss jemand, wie ich den Klassen-Namen eines Forms
ändern kann (also zur Erzeugungszeit des Forms).


Heiko

[mkinzler]

Indem man eine andere Klasse nimmt.

[Bernhard Geyer]

Der Klassennamen ist der Klassennamen ist der Klassenname.

Was willst du damit bezwecken?

[shmia]

Schau Dir mal die procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string) an.
Meine sagt mir, dass du das gebrauchen könntest.

[hoika]

Hallo,

hm wozu brache ich das.
Ist geheim

Im Ernst, eine zugekaufte Software läuft nur, wenn unser Programm offen ist (Kopierschutz).

Jetzt musste der Formnme geändert werden, damit ändert sich auch der Klassenname.

Lösung: CreateParams überschreiben, dort kann auch der Klassenname gesetzt werden.


Heiko

[himitsu]

Also erstmal ist es möglich, daß der Form.Name und der KlassenName unterschiedlich sind, dazu muß man es nur in der DFM und der PAS ändern (manuell und vorzugsweise nicht in/mit Delphi).

Oder man ändert den Namen einfach im OnCreate (das ist kurz nachdem die Form und somit auch die DFM geladen wurde) ... man beachte dabei, daß Der DFM-Loader den Formnamen und den Klassennamen nutzt, um die die zur Form gehörende DFM aus den Programm-Ressoucen zu laden.


Und was soll das für ein Kopierschutz sein?
Ein kleines SendMessage (von einem externem Programm) und noch zwei kleine Befehle und deine Form hat einen anderen Namen.