AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

OnMouseMove

Ein Thema von MaDDoH · begonnen am 25. Feb 2008 · letzter Beitrag vom 26. Feb 2008
Antwort Antwort
MaDDoH

Registriert seit: 25. Feb 2008
4 Beiträge
 
#1

OnMouseMove

  Alt 25. Feb 2008, 20:18
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 (;
  Mit Zitat antworten Zitat
Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#2

Re: OnMouseMove

  Alt 25. Feb 2008, 20:26
Hier im Forum suchenonmouseenter
I come from outer space to save the human race
  Mit Zitat antworten Zitat
MaDDoH

Registriert seit: 25. Feb 2008
4 Beiträge
 
#3

Re: OnMouseMove

  Alt 25. Feb 2008, 21:32
wär trotzdem cool wenn ich ne konkrete/genaue antwort bekomme...

button is sichtbar aba unenabled
wenn der cursor drüba is issa enabled
Streite dich nie mit einem Irren,
er zieht dich auf sein Niveau herunter
und schlägt dich mit seiner Erfahrung
=]
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.039 Beiträge
 
Delphi XE2 Professional
 
#4

Re: OnMouseMove

  Alt 25. Feb 2008, 22:23
Zitat von Jens Schumann:
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.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
MaDDoH

Registriert seit: 25. Feb 2008
4 Beiträge
 
#5

Re: OnMouseMove

  Alt 26. Feb 2008, 00:52
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;
Streite dich nie mit einem Irren,
er zieht dich auf sein Niveau herunter
und schlägt dich mit seiner Erfahrung
=]
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.039 Beiträge
 
Delphi XE2 Professional
 
#6

Re: OnMouseMove

  Alt 26. Feb 2008, 11:51
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.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz