Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by anse,
27. Dez 2009
Mit VT.OffsetY klappts:
procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var
Control: TWinControl;
VT: TBaseVirtualTree;
begin
// TODO: Does not work when a SynMemo has focus, probably related to the broken solution of this issue:
//...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by anse,
26. Dez 2009
Ah, richtig, die Form bekommt den OnMouseWheel event ja zuerst. Danke für den Tip!
Jetzt zeigt das VirtualStringTree nur merkwürdige Effekte bei
VT.ScrollBy(WheelDelta)
aber das ist ein anderes Problem...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by anse,
25. Dez 2009
Ich möchte z.B. ein TVirtualStringTree vom Mausrad scrollen lassen, was bisher nur funktioniert wenn es den Fokus hat. Gibt es Ideen wie man das auch für eine beliebige Komponente auf einer Form schafft, die sich unter der Maus befindet aber keinen Fokus hat?