ProgressBar

← →
DimaK (2003-11-16 17:45) [0]

Ребята, как можно убрать дурацкую рамку (оконтовку) в ProgressBar.

← →
DimaK (2003-11-16 21:29) [1]

Ау!

← →
Zew (2003-11-16 21:34) [2]

http://delphiworld.narod.ru/base/progressbar_without_border.html

← →
DimaK (2003-11-16 22:47) [3]

Спасибо, но это я видел. Там пример компонента, я уже мучался, пытаясь вытащить оттуда нужный код, но что-то никак :(
Может кто поможет? заранее благодарен!

← →
isaak (2003-11-16 22:53) [4]

Что никак?

← →
DimaK (2003-11-17 00:30) [5]

Я так понял что это главное свойство:

procedure TNProgressBar.WMNCPAINT(var Msg: TMessage);
var
DC: HDC;
RC: TRect;
begin
if ShowFrame then
begin
inherited;
Invalidate;
end
else
begin
DC := GetWindowDC(Handle);
try
Windows.GetClientRect(Handle, RC);
with RC do
begin
Inc(Right, 2);
Inc(Bottom, 2);
end;
Windows.FillRect(DC, RC, Brush.Handle);
finally
ReleaseDC(Handle, DC);
end;
end;
end;

но как его написать отдельно (не используя лишние компоненты)

ProgressBar Найти похожие ветки