Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TGraphicControl in Delphi 2007 mouse-wheel sensitive?


Kajjo - Mi 19.12.07 14:28
Titel: TGraphicControl in Delphi 2007 mouse-wheel sensitive?
Hallo! Ich arbeite noch mit Delphi 6 und denke darüber nach, auf Delphi 2007 upzugraden.

Weiß jemand, ob von TGraphicContol abgeleitete Klassen jetzt endlich auch MouseWheel-Ereignisse verarbeiten können?

Nebenbei gefragt, gibt es eine Übersicht über Veränderungen und neue Möglichkeiten der VCL von D2007 im Vergleich zu D6? Gibt es viele neue Controls oder ist weitestgehend alles beim alten geblieben?

Kajjo


DrRzf - Mi 19.12.07 22:54

In Listboxen und Stringgrid funktionierts.

In ner From selbst musste ich dazu ne scrollbar einbauen und mit dieser procedure arbeiten.
Hier zb für ne Form die mir ein scrollen durch die Form ermöglicht in der gezeichnet wurde.

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if WheelDelta = -120 then ScrollBarMOPos.Position := ScrollBarMOPos.Position + 1;
  if WheelDelta = 120 then ScrollBarMOPos.Position := ScrollBarMOPos.Position - 1;
  DrawMonitorData;
end;


Edit:
Ich benutze selbst noch D7 nicht 2007.