Kleines Rekursiv-Problem

[Udontknow]

Hallo!

Was soll denn dieses AX da? Entweder ClientToScreen, oder das hier:

Delphi-Quellcode:

function GetAbsoluteLeft(Control:TWinControl):Integer;
begin
  if Control.Parent<>NIL then
    Result:=Control.Left+GetAbsoluteLeft(Control.Parent)
  else
    Result:=Control.Left;
end;

Cu,
Udontknow