|
Показать TProgressBar в стиле XP (2)Delphi , Компоненты и Классы , TProgressBarПоказать TProgressBar в стиле XP (2)
Code: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ProgressBar1: TProgressBar;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER + 10;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
FSpeed: Integer;
begin
FSpeed := 100;
SetWindowLong(ProgressBar1.Handle, GWL_STYLE,
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE);
{ Включить }
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, FSpeed);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{ Выключить }
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 0, 0);
end;
end. |
Автор: Rrader
Статья Показать TProgressBar в стиле XP (2) раздела Компоненты и Классы TProgressBar может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: TProgressBar ::
|
|
