Nicht auf True und False vergleichen
Und wenn dann vereinfachen
Delphi-Quellcode:
procedure TF_TagNacht.Bt_BlitzMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Im_Wolke1.Picture.LoadFromFile('Regen.ico');
end;
procedure TF_TagNacht.Bt_BlitzMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Im_Wolke1.Picture.LoadFromFile('Wolke.ico');
end;
Zitat:
Wir waren davon ausgegangen dass diese Ereignisse nur für bewegungen mit der Maus sind.
Dafür gibt es MouseMove.