[Muxa]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

program Project1;   uses   Windows, Messages;   const WndClass = 'TWinWnd'; WndCaption = ''; ProgBrID = 1; PBS_MARQUEE = $08; PBM_SETMARQUEE  = WM_USER+10;   var   Wc: TWndClassEx;   Wnd: HWND;   Msg: TMsg;   ProgBr: hwnd;     function WindowProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall; begin Result:=0;   case Msg of       WM_DESTROY: begin          PostQuitMessage( 0 );          Result := 0;          Exit;       end;       else          Result := DefWindowProc( Wnd, Msg, wParam, lParam );    end; end;   begin    with Wc do    begin       cbSize := SizeOf( Wc );       style := CS_HREDRAW or CS_VREDRAW;       lpfnWndProc := @WindowProc;       cbClsExtra := 0;       cbWndExtra := 0;       hInstance := hInstance;       hIcon := LoadIcon( 0, IDI_APPLICATION );       hCursor := LoadCursor( 0, IDC_ARROW );       hbrBackground := COLOR_WINDOW;       lpszMenuName := nil;       lpszClassName := WndClass;    end;    RegisterClassEx( Wc );    Wnd := CreateWindowEx( 0, WndClass, WndCaption, WS_OVERLAPPEDWINDOW,                           10, 10, 300, 100, 0, 0, hInstance, nil );        ProgBr := CreateWindowEx( WS_EX_CLIENTEDGE, 'PROGRESS_CLASS', '',                            WS_VISIBLE,                            10, 10, 270, 20, Wnd, ProgBrID, hInstance, nil );    SendMessage( ProgBr, WM_SETFONT, GetStockObject( ANSI_VAR_FONT ), 0 );    SetWindowLong (ProgBr, GWL_STYLE, (GetWindowLong (0, GWL_STYLE) or PBS_MARQUEE));    SendMessage(ProgBr,PBM_SETMARQUEE, 1, 50);    ShowWindow( Wnd, SW_SHOWNORMAL );      while GetMessage( Msg, 0, 0, 0 ) do    begin       TranslateMessage( Msg );       DispatchMessage( Msg );    end;    Halt( Msg.wParam ); end.

Почему-то мой ProgressBar не отображает на форме... В чем причина?. В общем должно быть как в Неро. Бегать полоска туда-сюда.

[0nni]

Потому что нет окна с классом 'PROGRESS_CLASS'

Код:

1	PROGRESS_CLASS = 'msctls_progress32';

Подключи модуль CommCtrl и не забудь вызвать InitCommonControls для инициализации библиотеки CommCtrl.

[Muxa]

Что-то не выходит у меня( Все равно не отображает. Может вы выложите готовый проект?

[0nni]

Код:

1 2 3 4 5 6

InitCommonControls; .... .... PrgBar := CreateWindowEx( WS_EX_CLIENTEDGE, PROGRESS_CLASS, '',                          WS_VISIBLE or <font color="Red">WS_CHILD</font>,                          10, 10, 270, 20, handle, 0, hInstance, nil );

Он у тебя должен был отображаться, но не в родительском окне, а в виде еще одного окна.

[Muxa]

У меня выходит просто пустое окно.

[0nni]

Код:

1	SetWindowLong (ProgBr, GWL_STYLE, (GetWindowLong (0, GWL_STYLE) or PBS_MARQUEE));

А зачем ты делаешь его невидимым?

Код:

1	SetWindowLong (ProgBr, GWL_STYLE, (GetWindowLong (<font color="Red">ProgBr</font>, GWL_STYLE) or PBS_MARQUEE));

[Muxa]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

program Project1;   uses   Windows,   Messages;   {$R com_ctrl.res} const WndClass = 'TWinWnd'; WndCaption = ''; ProgBrID = 1; PBS_MARQUEE = $08; PBM_SETMARQUEE  = WM_USER+10; var   Wc: TWndClassEx;   Wnd: HWND;   Msg: TMsg;   ProgBr: hwnd;   function WindowProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall; begin   case Msg of       WM_DESTROY: begin          PostQuitMessage( 0 );          Result := 0;          Exit;       end;       else          Result := DefWindowProc( Wnd, Msg, wParam, lParam );    end; end;   begin      with Wc do    begin       cbSize := SizeOf( Wc );       style := CS_HREDRAW or CS_VREDRAW;       lpfnWndProc := @WindowProc;       cbClsExtra := 0;       cbWndExtra := 0;       hInstance := hInstance;       hIcon := LoadIcon( 0, IDI_APPLICATION );       hCursor := LoadCursor( 0, IDC_ARROW );       hbrBackground := COLOR_WINDOW;       lpszMenuName := nil;       lpszClassName := WndClass;    end;    RegisterClassEx( Wc );    Wnd := CreateWindowEx(0, WndClass, WndCaption, WS_OVERLAPPED or WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX,                        10, 10, 300, 130, 0, 0, hInstance, nil );     ProgBr := CreateWindowEx( 0, 'msctls_progress32', '', WS_POPUP or WS_VISIBLE, 20, 40, 100, 20, wnd, 0, hinstance, nil );    SetWindowLong (ProgBr, GWL_STYLE, (GetWindowLong (ProgBr, GWL_STYLE) or PBS_MARQUEE));    SendMessage(ProgBr,PBM_SETMARQUEE, 1, 10);    ShowWindow( Wnd, SW_SHOWNORMAL );      while GetMessage( Msg, 0, 0, 0 ) do    begin       TranslateMessage( Msg );       DispatchMessage( Msg );    end;    Halt( Msg.wParam ); end.

И еще один нюанс. Как сделать так, чтобы окно прогресс бара принадлежало главному? А то получается так что окно можно таскать, а прогресс не лежит на нем и стоит на месте.

[0nni]

WS_POPUP or WS_VISIBLE исправь на WS_CHILD or WS_VISIBLE
WS_CHILD - стиль дочернего окна

Почитай немного теории по винапи, вмне в свое время помогла "Азбука программирования на WinApi" и Program Files\Common Files\borland\MSHelp\WIN32.HLP - не забудь про него.

[Muxa]

Все получилось. Оказывается решение было таким простым С меня +.