anderen Klassennamen zurückgeben

[Marco Steinebach]

Hallo zusammen,
Ich habe eine von TListView abgeleitete klasse, mit Namen: TMSListView.
Mein Screenreader erkennt die Klasse auch genauso, also als TMSListView.
Kann ich es irgendwie so anstellen, dass meine abgeleitete Klasse nach außen einen anderen Namen zurückgibt?
Würde mein Screenreader nämlich anstatt TMSListView einfach TListView erkennen, wäre alles schön.
Klingt beknackt, , aber ich dachte, ich frag einfach mal.
Evtl. irgendwas mit Klassenfunktionen...

Herzliche Grüße
Moo

[Delphi.Narium]

Suchst Du dashier TMSListView.ClassParent.ClassName ?

[himitsu]

Nein, aber du könntest deine Klasse genauso nennen, wie die Andere.

Beispiel:
Ist zwar für Innen gedacht, aber nach Außen macht es zusällig auch das, was du willst.
https://www.delphipraxis.net/141895-...phi-other.html

[Marco Steinebach]

Hallo Himitsu,
Ich weiß nicht, ob das bei mir so geht, vielleicht bin ich aber auch nur zu doof.
Wenn ich deine TNTHacks richtig verstanden habe, überschreibst du ja die Klassennamen.
Müsste in meinem Falle also heißen:

Code:

type
  TListView = TMsListView;

Da tut sich aber bei mir mal gar nix.
Ich bräuchte folgendes:
Ich nehme ein leeres Form und packe eine, sagen wir, ListView drauf.
Jetzt müßte ich es irgendwie hinbekommen, dass zur Laufzeit aus der ListView meinetwegen ein TIrgendwas wird...

Herzlich grüßt
Moo

[mytbo]

Zitat von Marco Steinebach:

Code:

type
  TListView = TMsListView;

Du musst schreiben:

Delphi-Quellcode:

type
  TListView = class(Vcl.ComCtrls.TListView)
  ...
  end;

Bis bald...
Thomas

[himitsu]

Entweder du nennst dein TMsListView direkt TListView,
oder erneut ableiten TListView = class(TMsListView); .

[Marco Steinebach]

Super! Und ganz herzlichen Dank!