Ich habe es nicht ausprobiert aber:
-wo wird SetRegion aufgerufen
-Im Destuctor von TPerson fehlt DeleteObject(Region)
Delphi-Quellcode:
function TPerson.GetRegion(X,Y: Integer): Boolean;
begin
if PTinRegion(Region,X,Y) then
Result:= True else Result:= False;
end;
geht auch so
Result := PTinRegion(Region,X,Y) ;
und
Delphi-Quellcode:
//statt if Select = True then
if Select then
Ich schau nachher noch mal drüber, im Moment habe ich zu tun ...