Witam,
Potrzebuje w Delphi aby podczas używania scroll myszy zwiększać lub zmniejszać wartość w polu Edit1 o jakąś wartość np. 1. Czy ktoś mógłby mi pomóc bo jakoś nie mogę tego zrobić. Z góry dzięki za pomoc.
Pozdrawiam,
Krzysiekkk
Witam,
Potrzebuje w Delphi aby podczas używania scroll myszy zwiększać lub zmniejszać wartość w polu Edit1 o jakąś wartość np. 1. Czy ktoś mógłby mi pomóc bo jakoś nie mogę tego zrobić. Z góry dzięki za pomoc.
Pozdrawiam,
Krzysiekkk
Napisz własną kontrolkę dziedziczącą po TEdit w której nadpiszesz funkcje DoMouseWheelDown
i DoMouseWheelDown
coś w stylu:
type
TMyEdit = class(StdCtrls.TEdit)
protected
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint) :Boolean; override;
end;
//---
implementation
function TMyEdit.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint) :Boolean;
begin
result:= inherited DoMouseWheelDown(Shift, MousePos);
//tu kod dec
end;
function TMyEdit.DoMouseWheelUp( Shift: TShiftState; MousePos: TPoint) :Boolean;
begin
result:= inherited DoMouseWheelDown(Shift, MousePos);
//tu kod inc
end;
Edit: albo nawet po TSpinEdit może będzie lepszy
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.