Problem mit Buttons OnMouseEnter. Alle Buttons gläntzern

[DeddyH]

Und ich verstehe nicht, dass Du unsere Posts ignorierst oder nur halb liest.

Zitat:

Zitat von DeddyH

btn1 bekommt Tag 1, btn2 Tag 3 und btn3 Tag 5 (im OI).

Der Tag bestimmt den Index der ImageList und kann direkt aus dem Sender ausgelesen werden.

Zitat:

Delphi-Quellcode:

ImageList1.GetBitmap((Sender as TBitBtn).Tag, (Sender as TBitBtn).Glyph);

Und was verstehst Du an meinem DoOnLeave nicht? Ist doch genau dasselbe Prinzip, nur dass der Index dann Tag - 1 entspricht.

[Praxist]

Ich habe nicht gewusst, dass den tag automatisch ausgelesen wird
Wie gesagt OnMouseEnter geht super

In MouseLeave habe ich den selben Prinzip, wie Du geschrieben hast aber passiert nicht

Delphi-Quellcode:

procedure TForm1.DoOnLeave(Sender: TObject);
begin
//  ImageList1.GetBitmap(Pred((Sender as TBitBtn).Tag-1), (Sender as TBitBtn).Glyph);
ImageList1.GetBitmap((Sender as TBitBtn).Tag-1, (Sender as TBitBtn).Glyph);
end;

Oder vielleicht muss man das Bild vorher löschen

[DeddyH]

Funktioniert es denn, wenn Du als Index fest die 0 reinschreibst? Wird die Methode überhaupt aufgerufen?

[Praxist]

Wie ich gedacht habe, man mus sowohl OnMouseEnter als auch OnMouseLeave vorher das BitBtn Graphic löschen :

Delphi-Quellcode:

procedure TForm1.DoOnLeave(Sender: TObject);
begin 
(Sender as TBitBtn).Glyph := nil;
// dann kommt der code

Danke für die Hilfe und für Deine Geduld : )