Results 1 to 2 of 2

Thread: MouseMove probleem

  1. #1

    MouseMove probleem

    Hallo allemaal,

    Ik zet op het Form een Panel1 en zet Panel1.OnMouseDown. De bedoeling is dat als de muiscursor op Panel1 staat er de kleur van Panel1 groen wordt en als de muiscursor buiten Panel1 staat Panel1 de kleur licht blauw krijgt. Op zich werkt dit wel, maar als je te snel de muiscursor verplaatst dan veranderd de kleur niet en blijft op groen staan. Hoe los je dit op?

    Met een vriendelijk groet, Frans


    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Panel1: TPanel;
        procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      if (Panel1.Height - Y = 1) or (Y <= 1) or (Panel1.Width - X = 1) or (X <= 1) then
      begin
        Panel1.Color := claqua;
        Exit;
      end;
      Panel1.Color := clGreen;
    end;
    
    end.

  2. #2
    Reader
    Join Date
    May 2002
    Location
    Holland
    Posts
    3,382
    Ik denk dat de events onmouseenter en onmouseleave geschikter zijn

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •