Forum: Programmieren allgemein
Delphi
by himitsu,
27. Aug 2012
Aber natürlich nur, wenn die Form der Owner ist, was bei selbsterstellten Komponenten nicht der Fall sein muß.
Ich nutzte etwas ähnliches, wo ich erstmal von der Componente den ClassName und wenn TComponent auch noch den Name anzeige.
Und dann rekursiv in einer Schleife die Parents runterrausche und alle Frames und Forms ebenfalls aufzähle.
Forum: Programmieren allgemein
Delphi
by himitsu,
27. Aug 2012
TmpPointer := ExceptAddr;
Move (TmpPointer, TmpLongWord, SizeOf(TmpLongWord));
TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(TmpLongWord);
TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(NativeUInt(ExceptAddr)); // Oder Cardinal (bei 32 Bit) oder sonstein passender Cast
Aber Adressen machen sich Hexadezimal irgendwie besser.
Und 'OnException: ' + ist irgendwie etwas doppelt.