OnMouseMove verzögern

[sniper_w]

Zitat:

aber das wars dann auch schon

Meinst?

Delphi-Quellcode:

type
  tmyPanel = class(TPanel)
  public
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ tmyPanel }

procedure tmyPanel.CMMouseEnter(var Message: TMessage);
begin
  Form1.Caption := 'CMMouseEnter';
end;

procedure tmyPanel.CMMouseLeave(var Message: TMessage);
begin
  Form1.Caption := 'CMMouseLeave';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  mPanel: TPanel;
begin
  mPanel := tmyPanel.Create(Self);
  with mPanel do
  begin
    Name := 'myPanel';
    Parent := Self;
    Left := 10;
    Top := 10;
    Width := 185;
    Height := 41;
    Caption := 'Panel1';
    TabOrder := 0;
  end;
end;