- unit U_TGL_Panel;
- interface
- uses Messages, Classes, ExtCtrls, Windows;
- type
- TglPanel = class(TPanel)
- private
- FOnPaintEvent:TNotifyEvent;
- protected
- procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
- procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;
- published
- property OnPaint:TNotifyEvent read FOnPaintEvent write FOnPaintEvent;
- end;
- implementation
- procedure TglPanel.WMPaint(var Message: TWMPaint);
- var
- PS:TPaintStruct;
- begin
- BeginPaint( Handle, PS);
- if Assigned(FOnPaintEvent) then
- FOnPaintEvent(Self);
- EndPaint( Handle, PS);
- Message.Result := 0;
- end;
- procedure TglPanel.WMEraseBkgnd(var Message: TWmEraseBkgnd);
- begin
- Message.Result := 1;
- end;
- end.