TListView: ItemFocused fehlerhaft - wie korrigieren?

[Martin W]

Hi;


Ich habe folgendes ListView:

http://de.firedev-software.net/listView1.jpeg > Siehe auch listView1.jpeg im Anhang


Wenn ich jetzt dahinklicke, wo der Orangene Kreis ist, sieht das so aus:

http://de.firedev-software.net/listView2.jpeg > Siehe auch listView2.jpeg im Anhang


Die Eigenschaft ListView1.ItemFocused ist jetzt auf der 5ten Zeile. Wenn ich anschließend wieder in den Orangenen Kreis klicke:

http://de.firedev-software.net/listView3.jpeg > Siehe auch listView3.jpeg im Anhang

ist die Eigenschaft ListView1.ItemFocused immer noch auf der 5ten Zeile, obwohl diese gar nicht mehr markiert ist...


Wie kann ich dies ändern? Anders gesagt: Wenn ich eine Zeile ohne Inhalt anklicke, möchte ich, das ListView1.ItemFocused nil wird... oder zumindest die Eigenschaft ListView1.ItemFocused.Caption sollte '' sein.


Danke für eure Antworten im Voraus;

lg

[DGL-luke]

Du könntest vor dem Abprüfen erstmal auf Selected <> nil prüfen. Oder willst du vielleicht Selected und nicht Focused?

[Martin W]

Danke, das habe ich gesucht... hab jetzt eine Function geschrieben, die mir die Arbeit "was angeklickt" abnimmt.

Delphi-Quellcode:

  if Listview1.Items.Count > 0 then
  begin
    try
      if Listview1.ItemFocused.Caption = '' then
        Exit;
      if ListView1.Selected = nil then
        Exit;
    except
      exit;
    end;
  end;

[marabu]

Oder so:

Delphi-Quellcode:

procedure TDemoForm.ListViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  with Sender as TListView do
    ItemFocused := GetItemAt(X, Y);
end;

Grüße vom marabu

[fkerber]

Hi!

Könntest du deine Images bitte an den Beitrag anhängen und dann darauf verweisen?
Die Modemuser unter uns werden es dir danken!


Ciao Frederic

[Christian Seehase]

Moin Martin,

so verwendet man aber keinen try/except-Block, man kann schliesslich selber dafür sorgen, dass es gar nicht erst zu einer Exception kommt.

Delphi-Quellcode:

  if Listview1.Items.Count > 0 then begin
    if ListView1.ItemFocused = nil then exit;
    if Listview1.ItemFocused.Caption = '' then exit;
    if ListView1.Selected = nil then Exit;
  end;

Mit try/except sollte man ausschliesslich dazu verwenden Fehler abzufangen (und zu bearbeiten), die vorher nicht absichern kann.

[Martin W]

Zitat von fkerber:

Hi!

Könntest du deine Images bitte an den Beitrag anhängen und dann darauf verweisen?
Die Modemuser unter uns werden es dir danken!

Ciao Frederic

Die Bilder sind ja nur nen paar KB groß !!! Bei größeren werd ich die ab gerne anhängen, kein Problem

Zitat:

Mit try/except sollte man ausschliesslich dazu verwenden Fehler abzufangen (und zu bearbeiten), die vorher nicht absichern kann.

Danke, werde mich in Zunkunft daran halten.

[fkerber]

Hi!

Zitat von Martin W:

Die Bilder sind ja nur nen paar KB groß !!! Bei größeren werd ich die ab gerne anhängen, kein Problem

Es gibt auch noch einen weiteren Grund, weswegen es prima wäre, auch die kleineren Bilder anzuhängen:
Sollte irgendwann mal dein Server/Webspace bzw. deine Domain umziehen/unerreichbar sein, dann ist der Beitrag nur noch sehr schwierig zu verwenden, da dann die Bilder fehlen würden. Wären sie dagegen im Anhang, könnte das nicht passieren!

Deswegen wäre es prima, sie trotz geringer Größe besser anzuhängen!


Ciao Frederic

[Martin W]

Zitat von fkerber:

Hi!

Zitat von Martin W:

Die Bilder sind ja nur nen paar KB groß !!! Bei größeren werd ich die ab gerne anhängen, kein Problem

Es gibt auch noch einen weiteren Grund, weswegen es prima wäre, auch die kleineren Bilder anzuhängen:
Sollte irgendwann mal dein Server/Webspace bzw. deine Domain umziehen/unerreichbar sein, dann ist der Beitrag nur noch sehr schwierig zu verwenden, da dann die Bilder fehlen würden. Wären sie dagegen im Anhang, könnte das nicht passieren!

Deswegen wäre es prima, sie trotz geringer Größe besser anzuhängen!


Ciao Frederic

Ich schlag hiermit mal einen Kompromiss vor, siehe selbst

[fkerber]

Hi!

Ok, so sieht das gut aus!


Ciao Frederic