FMX TListboxItem Highlight deaktivieren

[Starsky911]

Ist es möglich bei ein FMX TListBox den Item-Highlight zu deaktivieren?

Ich nutze TListbox als Layout für Edit Felder.
In jedem Item setze ich ein TEdit. Wenn ein TEdit aktiv ist, wird der drunter liegende ListboxItem gehighlightet, was sehr unschön aussieht.
Gibt es die Möglichkeit das zu deaktivieren?

Gruß, Starsky

[Harry Stahl]

Das Einfachste dürfte sein, im Onpainting-Event eines ListboxItems ein Canvas.clear aufzurufen:

Delphi-Quellcode:

procedure TForm1.ListBoxItem1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Canvas.Clear(claWhite);
end;

// Hinweis: claWhite kannst Du zuer Vereinfachung der Schreibweise verwenden, wenn Du die Unit System.UIConsts einbindest.

[Starsky911]

Hallo Harry,
vielen Dank für die Antwort.
Leider klappt das so noch nicht ganz.
Wenn ich das so einfüge wird die Template Farbe mit weiß überschrieben.
Aber auch diese Variante funktioniert nicht.

Delphi-Quellcode:

procedure TForm1.ListBoxItem1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Canvas.Clear(ListBox1.Canvas.Fill.Color);
end;

Gibt es vielleicht noch eine andere Möglichkeit?

[Starsky911]

So, ich habe es mit folgendem Code gelöst.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  lbitem: TListBoxItem;
begin
  for I := 0 to Listbox1.Items.Count-1 do begin
    lbitem:=ListBox1.ItemByIndex(i);
    lbitem.Selectable:=false;
  end;
end;