Danke!! Jetzt meckert er weiter ich schau mal was ich tun kann... wenn ich gar nicht mehr weiter weiß schrei ich ganz laut
Hier ist der Schrei!!!
Delphi-Quellcode:
if Assigned(Source)
then
begin
lSource :=
string(Source.ClassName);
if (Source
is TcxDragControlObject)
and (TcxDragControlObject(Source).Control
is TcxListBox)
then //hier geändert
begin
lst1 := TcxListBox(TcxDragControlObject(Source).Control);
//Hier auch geändert
i := lst1.ItemIndex;
if (i >= 0)
then
begin
lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]);
//Fehlermeldung
{Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung
'Zugriffsverletzung bei Adresse 0087A5DE in Modul '*.exe'. Lesen von Adresse 00000280' aufgetreten}
if Assigned(lNumber)
then
begin