nach kurzer Suche hier im Forum und auf dem Alaska-Newsserver sehe ich meine Frage nicht beantwortet. Die Referenzhilfe ist auch nicht sehr erquickend. Ich möchte gerne den Namen eines Objektes ermitteln.
Code: Alles auswählen
CLASS PSPDialog FROM XbpDialog
EXPORTED:
VAR Pos, Size, Minimized, Name
INLINE Method Init( oParent, oOwner, aPos, aSize, aPP, lVisible )
::xbpDialog:init( oParent, oOwner, aPos, aSize, aPP, lVisible )
::resize:={|aOldSize, aNewSize, self| self:lockupdate(.T.), func_TeilDlg_resize(self, aOldSize, aNewSize), oDlg:invalidateRect(), Schriftgroesse(self, aOldSize, aNewSize), self:lockupdate(.F.), self:invalidateRect() }
::Name:=var2char(self)
::icon:=120
::Minimized:=.F.
::Pos:=aPos
::Size:=aSize
RETURN self
ENDCLASS
Code: Alles auswählen
::Name:=var2char(self)