GetClassName

hans-maulwurf · Hält's aus hier Beiträge: 10

Hallo,
ich hab das Handle H eines beliebigen Feldes, Edit oä, und will nun den genauen Klassennamen ermitteln. Das hat vor geraumer Zeit mal gefunzt, ka was ich jetzt falsch mache...

Also das hab ich

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var name: pansichar;
...
GetClassName(H, name, 300);
...
Memo1.Lines.Add(PAnsiChar(name));

gibt mir aber einen leeren String zurück

Danke

Moderiert von Christian S.: Highlight- durch Delphi-Tags ersetzt

Lannes · Verfasst: Mo 24.10.05 19:59

Hallo,

das dürfte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var Name : PChar;
begin
  Name:= StrAlloc(102);
  GetClassName(Edit1.Handle, Name, 100);
  Edit1.Text := Name;
  StrDispose(Name);

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme