Código Delphi [-] procedure TForm1.ScrollBox1Click(Sender: TObject); var Canvas: TCanvas; begin Canvas := TCanvas.Create; Canvas.Handle := GetDC(ScrollBox1.Handle); Canvas.Brush.Color := clRed; Canvas.FillRect(ScrollBox1.ClientRect); Canvas.Free; end;
procedure TForm1.ScrollBox1Click(Sender: TObject); var Canvas: TCanvas; begin Canvas := TCanvas.Create; Canvas.Handle := GetDC(ScrollBox1.Handle); Canvas.Brush.Color := clRed; Canvas.FillRect(ScrollBox1.ClientRect); Canvas.Free; end;