Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
28. Sep 2004
Dafür musst du meine zweite Lösung heranziehen:
procedure TForm1.Timer1Timer(Sender: TObject);
const Area = 25;
begin
if Now.Y < Area then
ListView1.Perform(WM_VSCROLL, SB_LINEUP, 0);
if (ListView1.Height - Now.Y) < Area then
ListView1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
end;
Wenn du in den Bereich der unteren oder oberen 25 Pixel kommst, dann wird gescrollt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
28. Sep 2004
Ist ja auch klar, weil ich überhaupt nicht festgelegt habe, dass er das machen soll! (War ja auch nicht nach gefragt, gell?) :zwinker:
Auf den ersten Blick überhaupt nicht, weil diese Methode mit Selected arbeitet, und das bei MultiSelect nicht funktioniert. Ist ja auch klar, welches Element soll denn auch zurückgegeben werden, wenn mehrere ausgewählt sind!?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
28. Sep 2004
Das sind Elemente vom Typ TPoint.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
27. Sep 2004
Entweder so:procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const Speed = 3;
begin
if (ssLeft in Shift) then
begin
if (Y - Pos.Y > 3) then
begin
ListView1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
Pos.Y := Y;