ok, dann springt er hier hin:
Code:
procedure TWinControl.CreateWnd;
var
Params: TCreateParams;
ClassRegistered: Boolean;
{$IF DEFINED(CLR)}
TempClass: TWndClassInfo;
WndClass: TWndClass;
{$ELSE}
TempClass: TWndClass;
{$IFEND}
begin
CreateParams(Params);
{$IF DEFINED(CLR)}
Params.WinClassName := Format('%s.%d',
[Params.WinClassName, AppDomain.CurrentDomain.GetHashCode]);
{$IFEND}
with Params do
begin
if (WndParent = 0) and (Style and WS_CHILD <> 0) then
if (Owner <> nil) and (csReading in Owner.ComponentState) and
(Owner is TWinControl) then
WndParent := TWinControl(Owner).Handle
else
raise EInvalidOperation.CreateFmt(SParentRequired, [Name]); // <----------------------------------------- hier stoppt er
Leider muss ich hier passen, was hier das Problem sein soll ?????