Komponente bleibt auf einem Status hängen

[TheMiller]

Hallo,

in der Benutzung meines Buttons trat jetzt doch noch ein Fehler auf. Und zwar habe ich properties für ein "normales" Bild und für ein RollOver-Bild. Wenn ich nur das RollOverbild angebe, dann wird der Button nach verlassen wieder transparent, passt sich also der Form an.

Das funktioniert allerdings nur, wenn ich ein Projekt erstelle, das ! noch nicht gespeichert wurde ! - Sobal ich das Projekt speicher, bleibt die Komponente auf dem RollOver-Bild einfach stehen, egal was ich mache.

Delphi-Quellcode:

procedure TDesignButton.MouseEnter(var msg: TMessage);
begin
  if (imgrollover <> '') then
  begin
    actBMP.Assign(RollOver);
    LoadImage;
    Paint;
  end else
  begin
    Paint;
  end;
end;

procedure TDesignButton.MouseLeave(var msg: TMessage);
begin
  if (imgnormal <> '') then
  begin
    actBMP.Assign(normal);
    LoadImage;
    Paint;
  end else
  begin
    Canvas.Brush.Color:=Parent.Brush.Color;
    Canvas.FillRect(getClientRect);
    Paint;
  end;
end;

Das kann ich mir nun garnicht erklären. Hört sich seltsam an - ist aber so...

[TheMiller]

Achso, eine Information noch: Es bleibt sich egal, ob ich einen Button zur Entwurfs- oder zur Laufzeit erstelle. Beim gespeicherten Projekt läd er immer nur das Rollover...