Etwas in der Art funktioniert, bringt Dich aber wahrscheinlich nicht weiter, da Du ja Quasi nur ein Guckloch definierst.
Delphi-Quellcode:
type
TGLSceneViewer =
class(GLWin32Viewer.TGLSceneViewer)
procedure WMPaint(
var Message: TWMPaint);
message WM_PAINT;
end;
TForm1 =
class(TForm)
.......
......
procedure TGLSceneViewer.WMPaint(
var Message: TWMPaint);
var
DC:HDC;
begin
inherited;
DC := GetDC(
handle);
Windows.FrameRect(
DC, Rect(FMdownX, MDownY, FMCurrentX,FMCurrentY),TForm(Owner).Brush.Handle);
ReleaseDC(
Handle,
DC);
end;