proceduren (Events) aus Interface

[EWeiss]

Delphi-Quellcode:

procedure TfrmChild2.WMMoving(var Msg: TMessage);
var
   MagneticWnd: IMagneticWnd;
begin
   MagneticWnd := CTRL_MagneticWindowCreate;
   MagneticWnd.WMMoving(Msg);
end;

Wäre möglich aber nicht umsetzbar weil ich über keine Form verfüge.
Meine Form wird in NonVcl erstellt.

Delphi-Quellcode:

    // Window erstellen
    MainHandle := CreateWindowEx(dwExStyle, myClass, myTitle, dwStyle, MainLeft, MainTop,
      MainWidth, MainHeight, 0, 0, wc.hInstance, nil);

gruss