Hallo
Hätte eine Frage zur Mousemove Funktion.
Habe folgenden Quelltext:
Delphi-Quellcode:
procedure TForm2.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
case y of
0:Label7.Caption:='50,0°';
1:Label7.Caption:='49,9°';
2:Label7.Caption:='49,8°';
3:Label7.Caption:='49,7°';
4:Label7.Caption:='49,6°';
5:Label7.Caption:='49,5°';
6:Label7.Caption:='49,4°';
7:Label7.Caption:='49,3°';
8:Label7.Caption:='49,2°';
9:Label7.Caption:='49,1°';
10:Label7.Caption:='49,0°';
end;
Da ich aber über 1000 pixel habe,die eine entsprechenden Gradzahl im Label anzeigen soll und ich nicht stundenlang tippen möchte wäre meine Frage ob nicht sowas in der Art möglich wäre:
Delphi-Quellcode:
procedure TForm2.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
case y of
0..10:Label7.Caption:='50,0°'..'49,0°';
end;
Da ich noch Anfänger bin wäre ich Dankbar für einen Tip!
[edit=Sharky]Delphi-Tags eingefügt Mfg, Sharky[/edit]