C++ WndProc Funktion in Delphi übersetzen

[Union]

Jetz flimmert es bei mir nicht mehr:

Delphi-Quellcode:

procedure TMDIChild.FormCreate(Sender: TObject);
var
   AStyle : integer;
begin
   AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
   SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_CLIPCHILDREN);
end;

Und so schaltest Du zum nächsten Fenster um:

Delphi-Quellcode:

procedure TMainForm.WindowNextExecute(Sender: TObject);
begin
    SendMessage(ClientHandle, WM_MDINEXT, 0, 0);
end;