Problem mit Buttons OnMouseEnter. Alle Buttons gläntzern

[Praxist]

Hallo

by speedbuttons und Bitbtn Buttons leuchten alle Buttons zusamen, wenn ich den Mousezeiger
auf ein Button oder auf ein Control in Form bewege
Onmouse Enter bekommt das Button ein neues Icon und auch beim OnMouseleave :

Delphi-Quellcode:

procedure TForm1.ButtonsCMMouseEnter(var Message: TMessage);
begin
if WindowFromPoint(ptWork) = BitBtn2.Handle then
ImageList1.GetBitmap(2, BitBtn2.Glyph); 
//...
procedure TForm1.ButtonsCMMouseleave(var Message: TMessage);
begin
if WindowFromPoint(ptWork) <> BitBtn2.Handle then
ImageList1.GetBitmap(3, BitBtn2.Glyph);

gibt es eine Lösung für das Problem
Ich weiß nicht, warum alle Buttons glitzern, wenn der Mausezeiger auf ein Control in Form bewegt

[TonyR]

Ich versteh nicht ganz, möchtest du bei allen BitButtons diesen Effekt haben, oder nur bei einem?

Bei letzterem würde ich folgene Anweisung nicht verstehenif WindowFromPoint(ptWork) = BitBtn2.Handle then Und bei Ersterem nicht, warum du nicht ganz normal über die OnEnter Prozedur des Bitbtn zugreifst!?

[Praxist]

Zitat von TonyR:

Ich versteh nicht ganz, möchtest du bei allen BitButtons diesen Effekt haben, oder nur bei einem?

Bei letzterem würde ich folgene Anweisung nicht verstehenif WindowFromPoint(ptWork) = BitBtn2.Handle then Und bei Ersterem nicht, warum du nicht ganz normal über die OnEnter Prozedur des Bitbtn zugreifst!?

ich möchte diesen Effekt bei mehreren BitButtons haben
>> warum du nicht ganz normal über die OnEnter Prozedur des Bitbtn zugreifst!?
weil D7 den Event OnMouseLeave nicht hat sondern nur OnMouseMouve

Das Problem kommt von dem Event OnMouseEnter, was ich programmiert habe, und
möchte ich ändern

>> Bei letzterem würde ich folgene Anweisung nicht verstehen

Delphi-Quellcode:

procedure TForm1.ButtonsCMMouseEnter(var Message: TMessage); 
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn2.Handle then // wenn der cursor drauf kommt

[TonyR]

Zitat von Praxist:

...
weil D7 den Event OnMouseLeave nicht hat sondern nur OnMouseMouve
...

sorry, daran hatte ich nicht gedacht.


geht das bei MouseEnter vllt. auch so:

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
TBitbtn(sender).Glyph:= {irgendwas} ;
end;

[Praxist]

OnMouseEnter und OnMouseNove beide funktionieren
Das Problem was macht man OnMouseLeave ?
Das BitButton soll ein anderes Bild bekommen wenn der Cursor das Button verlässt

[TonyR]

Oder du lädst dir einfach die LMD Tools herunter: http://www.lmd.de/download/#LMD%20Freeware

Da ist der TLMDButton unter der Rubrik LMDStd dabei, der besitzt OnMouseEnter + OnMouseExit, da umgehst du die ganze Sache

Edit: Außerdem kann man in diesen Button natürlich auch ein Glyph laden

[Praxist]

BitButton hat auch besitzt OnMouseEnter + OnMouseExit
Das geht um OnMouseLeave

[DeddyH]

Unter Delphi 7 hat ein BitBtn kein Ereignis OnMouseEnter oder OnMouseExit.

[Praxist]

Versehen, das war OnEnte und OnExit aber kein OnMouseEnter
Kann man sie nicht programmieren ?

[DeddyH]

Kann man. Kleines Beispiel (komplette Unit):

Delphi-Quellcode:

unit bla;

interface

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

type

  TBitBtn = class(Buttons.TBitBtn)
  private
    procedure CMMOUSEENTER(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMOUSELEAVE(var Msg: TMessage); message CM_MOUSELEAVE;
  end;

  TForm1 = class(TForm)
    btn1: TBitBtn;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TBitBtn }

procedure TBitBtn.CMMOUSEENTER(var Msg: TMessage);
begin
  inherited;
  Font.Style := Font.Style + [fsBold];
end;

procedure TBitBtn.CMMOUSELEAVE(var Msg: TMessage);
begin
  inherited;
  Font.Style := Font.Style - [fsBold];
end;

end.