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

Delphi-Quellcode:

procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string)

an.
Meine :glaskugel: 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.