关于TrackBar控件的问题

[pp616]

TrackBar控件有没有想vb中的Slider控件的一些事件？？
如：Scroll事件 MouseDown事件 MouseUp事件？？
有谁知道。我很急啊？对我有帮助的回答一定给分

[TechnoFantasy]

没有效果吗？上面的代码我运行通过了。看看你的代码。

[TechnoFantasy]

没有，不过可以使用Application.OnMessage来变通的处理：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;

type
TForm1 = class(TForm)
TrackBar1: TTrackBar;
procedure FormCreate(Sender: TObject);
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if MSG.hwnd = TrackBar1.Handle then
if Msg.message = WM_LBUTTONDOWN then
beep;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;

end.

[pp616]

没有用啊。我按你的代码做了。

[pp616]

我就是复制的你的代码啊。我用的是d6你呢？

[TechnoFantasy]

我使用的是D5,Win2000