Как убрать рамку у ProgressBar?
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn( ProgressBar1.Handle,
CreateRectRgn( 1, 1, ProgressBar1.Width-1,
ProgressBar1.Height-1 ), true );
end; |