Pavelbej, Примерно так можно:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, JvMemo, JvEdit, JvLabel, JvComponent, JvWinampApi,
JvWinampLabel, JvMagnet;
type
TForm1 = class(TForm)
ListBox1: TListBox;
private
FSaveLBWndMethod: TWndMethod;
procedure ListBoxWndProc(var VMessage: TMessage);
public
constructor Create(AOwner: TComponent); override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
FSaveLBWndMethod := ListBox1.WindowProc;
ListBox1.WindowProc := ListBoxWndProc;
end;
procedure TForm1.ListBoxWndProc(var VMessage: TMessage);
begin
if (VMessage.Msg = WM_VSCROLL) or (VMessage.Msg = WM_MOUSEWHEEL) then
Application.HideHint;
if Assigned(FSaveLBWndMethod) then
FSaveLBWndMethod(VMessage);
end;
end.
|
|