Timeline Anzeige unter Firemonkey

[Rollo62]

Versuch mal HitTest := False;

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  x, y: integer;
  t: TDateTime;
  xoffs: single;
begin

  for y := 0 to 50 do
  begin
    t := now;
    xoffs := 0;
    for x := 0 to 30 do
      with TTimelineButton.Create(self) do
      begin
        HitTest := False; //!!! Hier
        Parent := PresentedScrollBox1;
        Width := random(400);
        Height := 70;
        Position.Point := PointF(xoffs, y * Height);
        Title := 'Welt der Wunder';
        StartTime := t;
        t := t + (random(120) + 1) / MinsPerDay;
        EndTime := t;
        xoffs := xoffs + Width;
        SelectedRow := y = 1;
      end;
  end;
end;

Dann scrollt bei mir auch was.

Du musst dich wohl entscheiden ob du Buttons Drücken und Hoovern willst, oder doch besser scrollen.
Da wirst du vielleicht in der ButtonKlasse einen ScrollMechanismus für den Parent einbauen können, auf die schnelle.

Warum benutzt du die PresentedScrollBox ?
Die kenne ich zwr nicht, aber die normale ScrollBox macht das ganz schön mit AniCalculations, etc.
Bin mir nicht sicher ob das die PresentedVariante auch drin hat, die sieht für mich auf den ersten Blick etwas
anders als die normale aus.

Rollo