Delphi-Help

Как убрать рамку у ProgressBar?

Оцените материал
(0 голосов)


Как убрать рамку у ProgressBar?

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetWindowRgn( ProgressBar1.Handle,
                 CreateRectRgn( 1, 1, ProgressBar1.Width-1,
                 ProgressBar1.Height-1 ), true );
end;

Авторизация



Счетчики