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...