Hallo,
ich habe in meinem in Borland Delphi 7 programmierten Programm verschiedene Buttons in Form von Images auf dem Formular platziert. Wenn man mit der Maus über den Button (Image) fährt, ändert sich das Image (andere Farbe). Es wird quasi ein neues Image geladen. Beim Verlassen wird wieder das ursprüngliche Image geladen.
Mein Problem: Wenn ich mit der Maus vom Button auf und ab gehe, flackert das ganze Fenster.
Hier der Quellcode zu den Prozeduren, die den Button beim Darüberfahren verändern, bzw. zurückverändern:
(Die beiden Prozeduren werden im Objektinspektor eines Images unter OnMouseMove aufgerufen)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TForm1.Veraendern(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not schonveraendert then
begin
Form1.Image5.Visible:=true;
repaint;
end;
schonveraendert:=True;
end;
procedure TForm1.Zurueckveraendern(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if schonveraendert then
begin
Form1.Image5.Visible:=False;
repaint;
end;
schonveraendert:=False;
end; |
Wieso flackert/flimmert das Fenster, wenn ich mit der Maus über das Image fahre und was kann ich dagegen tun?
