Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
12. Apr 2004
Hier ist noch eine andere Variante von mir.
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if Handled=False then
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Handled:=True;
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
12. Apr 2004
Hallo himitsu,
vielleicht hilft dir die Eigenschaft WheelAccumulator weiter.
begin
WheelAccumulator:=1;
end;
Tschüß Markus