OnMouseMove

[MaDDoH]

HI

ich hab ne frage und zwar:

ich will einen button aktivieren wenn ich mit der mouse drüber bin
sollte die mouse nich über dem button sein is er deaktiviert

würd mich freuen wenn ihr mir ne antwort geben könntet wie ich das machen kann (;

[Jens Schumann]

onmouseenter

[MaDDoH]

wär trotzdem cool wenn ich ne konkrete/genaue antwort bekomme...

button is sichtbar aba unenabled
wenn der cursor drüba is issa enabled

[Amateurprofi]

Zitat von Jens Schumann:

onmouseenter

Das wird nichts bringen, denn wenn der Button disabled ist (also enabled=false) dann findet kein MouseEnter statt.

Ich würde das so lösen :

Im FormMouseMove (genauer gesagt im MouseMove des übergeordneten Objektes) prüfen, ob der Cursor auf den Button zeigt und, wenn ja Button.Enabled = True setzen.

Im TButton.CMMouseLeave enabled = false setzen.

Delphi-Quellcode:

interface

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

type
  TButton=Class(StdCtrls.TButton)
  private
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TButton.CMMouseLeave(var Message: TMessage);
begin
   Enabled:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true;
end;

end.

[MaDDoH]

hat super geklappt danke (;

aba statt 2 procedures zu machen würd ich die umschreiben:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true; 
end;

und zwar so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true else Button1.Enabled:=false 
end;

[Amateurprofi]

Zitat von MaDDoH:

hat super geklappt danke (;

aba statt 2 procedures zu machen würd ich die umschreiben:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true; 
end;

und zwar so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true else Button1.Enabled:=false 
end;

Was aber in bestimmten Situationen nicht funktioniert, zum Beispiel wenn der Button direkt am Rand der Form liegt und du den Button an diesem Rand verläßt.