Работа с курсор

[fate]

В новых версиях есть

а в старых можно сделать, вот:

procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
..
..
..
procedure MyComponent.CMMouseEnter(var msg:TMessage);
begin

inherited;
{действия на вход мыши в область компонента}
end;

procedure MyComponent.CMMouseLeave(var msg: TMessage);
begin

inherited;
{действия на покидание мыши области компонента}
end;

можно и с OnMoveMouse замутить

конечно можно, немного сноровки логики и все будет ок

[KAMENYKA]

Сообщение от fate

delphi 7 ?

Да семерка.

[chertovich]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
//    procedure Panel1MouseEnter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    procedure Clip(Enabled: Boolean = True);
  end;

var
  Form1: TForm1;
  Enter: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.Clip(Enabled: Boolean);
var
  R: TRect;
begin
  if Enabled then
  begin
    R.Left := Left + Panel1.Width + 6;
    R.Top := Top;
    R.Right := Screen.Width - 100;
    R.Bottom := Screen.Height - 100;
    ClipCursor(@R);
  end
  else
    ClipCursor(nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align := alLeft;
  Timer1.Enabled := False;
  Timer1.Interval := 500; {0.5 секунды}
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Enter := False;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not Enter then
  begin
    Clip;
    Timer1.Enabled := True;
    Enter := True;
  end;
end;

//procedure TForm1.Panel1MouseEnter(Sender: TObject);
//begin
//  Clip;
//  Timer1.Enabled := True;
//end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Clip(False);
  Timer1.Enabled := False;
//  Enter := True;
end;

end.

Пробуйте

[KAMENYKA]

procedure TSPMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var R: PRect;
begin
  inherited;
  IsClip := False;
end;

procedure TSPMainForm.dcsMenuMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  var foo: TPoint;
begin
  inherited;
  if not IsClip then
  begin
    Clip(True);
    Timer1.Enabled := True;
    IsClip := True;
  end;
end;

procedure TSPMainForm.Clip(Enabled: Boolean);
  var R: TRect;
      foo: TPoint;
begin
  if Enabled then
  begin
    R.Left := Left + dcsMenu.Width + 6;
    R.Top := Top;
    R.Right := Screen.Width - 100;
    R.Bottom := Screen.Height - 100;
    ClipCursor(@R);
  end
  else begin
    GetCursorPos(foo);
    ClipCursor(nil);
    SetCursorPos(foo.X - 2, foo.Y);
  end;
end;

procedure TSPMainForm.Timer1Timer(Sender: TObject);
begin
  inherited;
  Clip(False);
  Timer1.Enabled := False;
end;

Пишу так, но курсор категорически не хочет переходить на панель, дебажить практически невозможно так как событие срабатывает слишком часто и активным становиться окно кода.

[chertovich]

Чтобы этот код работал нормально, необходимо чтобы форма была "чиста", то есть при покидании панели

IsClip := False;

Если на форме что-то находится, то эт код надо "пихать" туда, в OnMouseMove этого компонента

[KAMENYKA]

Пока нечего не получилось, буду дальше пробовать, кстати в вашей программе курсор тоже не попадает на панель не через пол секунды, не через минуту )))
Большое спасибо за помощь вы мне очень помогли надеюсь скоро добью эту проблему.

[fate]

Если на форме что-то находится, то эт код надо "пихать" туда, в OnMouseMove этого компонента

зачем? а параметр Sender на что?

[chertovich]

Сообщение от KAMENYKA

Пока нечего не получилось, буду дальше пробовать, кстати в вашей программе курсор тоже не попадает на панель не через пол секунды, не через минуту )))
Большое спасибо за помощь вы мне очень помогли надеюсь скоро добью эту проблему.

Странно, у меня все работает. пусть кто-нить проверить у себя