BitBtn Button effekt

[Delphiturbo]

Hallo

ich möchte mein BitBtn ein Bild bei Mousemove zuweisen
d.h. wenn ich den Cursor auf das Button lege ohne zu klicken, soll das Button sein Bild (Icon) ändern

Das BitBtn Button hat in moment 4 Bilder
1 bei normal
2. wenn deaktiviert
3. wenn angeklickt
4. bei UP

wie kann ich das Bilder (Icon) von BitBtn ändern, wenn der Cursor drauf ?

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

end;

[mkinzler]

MousEnter und MouseLeave wäre wohl geeigneter

[himitsu]

am Einfachsten indem du dem Button ein anderes Bild/Bilderset zuweist.



aber die Erkennung ob die Maus wieder vom Button runter ist wird über BitBtn1MouseMove schwer zu erkennen sein.

[edit] war wohl wer schneller -.-''

[Delphiturbo]

Zitat:

Zitat von mkinzler

MousEnter und MouseLeave wäre wohl geeigneter

es ist egal welche, Mouseenter oder wie ich wollte On mousemove, ..
Ich möchte wissen wie man ein Bild zuweißt
Ich habe so versucht

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin 
BitBtn1.Glyph.Data:='...'  // funktioniert leider nicht !

[mkinzler]

In welcher Form leigen die Bilder vor?
Schau dir mal
BitBtn.Glyph.Assign();
an

[Matze]

Oder nimm eine TImageList. Damit geht's auch einwandfrei:

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(1, BitBtn1.Glyph);
end;

[Larsi]

Über Glyph sollte es eigentlich aber doch auch gehen?


Edit: Oh, da steht die Lösung ja :)

[Delphiturbo]

Zitat:

Zitat von Larsi

Über Glyph sollte es eigentlich aber doch auch gehen?

Edit: Oh, da steht die Lösung ja :)

Aber nur in 4 Fällen
Up, Disabled,Clicked,Down mehr nicht. Wie Onmouseenter, Onmouseleave, ... nicht oder ?

Allerding
so habe ich verscuht ohne Erfolg :

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
  private
  procedure BitBtn1MouseEnter(Sender: TObject);
  procedure BitBtn1MouseLeave(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(1, BitBtn1.Glyph);
end;

end.

auch so nicht geklappt :

Delphi-Quellcode:

procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(2, BitBtn1.Glyph);

end;

[Fussball-Robby]

Gibts nen Fehler, wird was falsches angezeigt oder passiert garnichts? Das man danach immer fragen muss :roll: Sind in der ImageList überhaupt Bilder drin?

[Delphiturbo]

Es passiert nichts
kein Fehler
ListImage1 enthält natürlich Icons (mehrere)