Sounds bei Maus-Hover

[Christian Seehase]

Moin Nils,

OnEnter/OnExit werden ausgelöst sobald ein Control (Button, Enter, usw.) den Tastaturfokus erhalten.
Das geht nicht nur mit anklicken, sondern, z.B., auch per Tab Taste.

Mit dem von d3g vorgeschlagenen OnMouseEnter/Leave ginge das eventuell so:

Code:

[b]type[/b]
  TForm1 = [b]class[/b](TForm)
    Button1: TButton;
    Edit1: TEdit;
    [b]procedure[/b] Edit1Enter(Sender: TObject);
  [b]private[/b]
    [color=#000080]{ Private-Deklarationen }[/color]
    [b]procedure[/b] CMMouseEnter([b]var[/b] Message: TMessage); message CM_MOUSEENTER;
    [b]procedure[/b] CMMouseLeave([b]var[/b] Message: TMessage); message CM_MOUSELEAVE;
  [b]public[/b]
    [color=#000080]{ Public-Deklarationen }[/color]
  [b]end[/b];

[b]var[/b]
  Form1: TForm1;

[b]implementation[/b]

[color=#000080]{$R *.DFM}[/color]

[b]procedure[/b] TForm1.CMMouseEnter([b]var[/b] Message: TMessage);

[b]var[/b]
  ptWork : TPoint;

[b]begin[/b]
  GetCursorPos(ptWork);
  [b]if[/b] WindowFromPoint(ptWork) = Button1.Handle [b]then[/b]
  [b]begin[/b]
    Edit1.Text := 'Hab ihn';
  [b]end[/b];
[b]end[/b];

[b]procedure[/b] TForm1.CMMouseLeave([b]var[/b] Message: TMessage);

[b]var[/b]
  ptWork : TPoint;

[b]begin[/b]
  GetCursorPos(ptWork);
  [b]if[/b] WindowFromPoint(ptWork) <> Button1.Handle [b]then[/b]
  [b]begin[/b]
    Edit1.Text := 'Weg isser';
  [b]end[/b];
[b]end[/b];