TListView: Deselektieren verhindern?

[PeterPanino]

Wie kann man bei einem TListView (ViewStyle: vsReport) verhindern, dass bei einem Klick auf die weiße Fläche unterhalb der Einträge das aktuell selektierte Item deselektiert und somit die Eigenschaft ItemIndex auf -1 gesetzt wird?

(Dies hat nichts mit der Eigenschaft HideSelection zu tun, die lediglich beim Verlust des Fokus des ListView die Selektion des selektierten Eintrages in grauer Farbe weiterhin anzeigt).

[Deep-Sea]

Zitat:

Zitat von PeterPanino

Wie kann man bei einem TListView (ViewStyle: vsReport) verhindern, dass bei einem Klick auf die weiße Fläche unterhalb der Einträge das aktuell selektierte Item deselektiert und somit die Eigenschaft ItemIndex auf -1 gesetzt wird?

(Dies hat nichts mit der Eigenschaft HideSelection zu tun, die lediglich beim Verlust des Fokus des ListView die Selektion des selektierten Eintrages in grauer Farbe weiterhin anzeigt).

Schau dir mal die TListView-Ereignisse "OnChanging", "OnChange" und "OnSelectItem" an :wink:

Nebenbei: Warum willst'e das? ^^

[marabu]

Hallo Peter,

schau mal:

Delphi-Quellcode:

procedure TDemoForm.ListViewClick(Sender: TObject);
var
  item: TListItem;
  pt: TPoint;
begin
  with Sender as TListView do
  begin
    pt := ScreenToClient(Mouse.CursorPos);
    item := GetItemAt(pt.X, pt.Y);
    if Assigned(item)
      then ShowMessage(item.Caption)
      else ItemIndex := ItemFocused.Index;
  end;
end;

Grüße vom marabu

[PeterPanino]

Mit diesem Code habe ich herausgefunden, dass bei der Selektion eines Items (wenn vorher ein anderes Item selektiert war), dieses Ereignis OnChanging 3 mal aufgerufen wird:

Delphi-Quellcode:

procedure TForm1.ListViewChanging(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  if (Change = ctState) then
    Windows.Beep(Random(100) + 150, 300);
end;

Aber ich habe noch nicht herausgefunden, wie man verhindern kann, dass ListView.ItemIndex auf -1 gesetzt wird.

[Deep-Sea]

Zitat:

Zitat von PeterPanino

Mit diesem Code habe ich herausgefunden, dass bei der Selektion eines Items (wenn vorher ein anderes Item selektiert war), dieses Ereignis OnChanging 3 mal aufgerufen wird:

Delphi-Quellcode:

procedure TForm1.ListViewChanging(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  if (Change = ctState) then
    Windows.Beep(Random(100) + 150, 300);
end;

Vlt. wäre "OutputDebugString" da praktischer *gg*

Zitat:

Zitat von PeterPanino

Aber ich habe noch nicht herausgefunden, wie man verhindern kann, dass ListView.ItemIndex auf -1 gesetzt wird.

Die Funktion von marabu sollte dir doch helfen können, oder?

[PeterPanino]

Zitat:

Zitat von marabu

Hallo Peter,

schau mal:

Delphi-Quellcode:

procedure TDemoForm.ListViewClick(Sender: TObject);
var
  item: TListItem;
  pt: TPoint;
begin
  with Sender as TListView do
  begin
    pt := ScreenToClient(Mouse.CursorPos);
    item := GetItemAt(pt.X, pt.Y);
    if Assigned(item)
      then ShowMessage(item.Caption)
      else ItemIndex := ItemFocused.Index;
  end;
end;

Grüße vom marabu

Genial! Ich habe den Code nun erweitert:

Delphi-Quellcode:

procedure TForm1.ListViewClick(Sender: TObject);
var
  item: TListItem;
  pt: TPoint;
begin
  with Sender as TListView do
  begin
    pt := ScreenToClient(Mouse.CursorPos);
    item := GetItemAt(pt.X, pt.Y);
    if (not Assigned(item)) and Assigned(ItemFocused) then
    begin
      ItemIndex := ItemFocused.Index;
    end;
  end;
  if ListView.ItemIndex = -1 then
    Windows.Beep(Random(100) + 150, 300);  
end;

[PeterPanino]

Es gibt doch noch ein Problem: Aus verschiedenen Gründen bin ich darauf angewiesen, meine Verarbeitungen im Ereignis OnSelectItem durchzuführen (wobei ItemIndex nicht -1 sein soll). Da nun aber OnSelectItem VOR OnClick ausgeführt wird, ist ItemIndex beim Klick auf eine freie Fläche immer noch auf -1 und wird erst nachher im Ereignis OnClick korrigiert.

Wenn ich nun aber versuche, einen ähnlichen Mechanismus in OnSelectItem einzubauen, so funktioniert das leider nicht:

Delphi-Quellcode:

procedure TForm1.ListViewSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  with ListView do
  begin
    if Assigned(ItemFocused) and (ItemIndex = -1) then
    begin
      ItemIndex := ItemFocused.Index;
    end;
  end;
  if ListView.ItemIndex = -1 then
    Windows.Beep(Random(100) + 150, 300);
end;

[Deep-Sea]

Zitat:

Zitat von PeterPanino

Es gibt doch noch ein Problem: Aus verschiedenen Gründen bin ich darauf angewiesen, meine Verarbeitungen im Ereignis OnSelectItem durchzuführen (wobei ItemIndex nicht -1 sein soll). Da nun aber OnSelectItem VOR OnClick ausgeführt wird, ist ItemIndex beim Klick auf eine freie Fläche immer noch auf -1 und wird erst nachher im Ereignis OnClick korrigiert.

Wenn ich nun aber versuche, einen ähnlichen Mechanismus in OnSelectItem einzubauen, so funktioniert das leider nicht:

Natürlich nicht, OnSelectItem wird vor dem deselektieren des Items aufgerufen, somit ist ItemFocused nicht nil. Danach wird es nur aufgerufen, wenn ein anderes Item selektiert wurde.

Wieso muss die Verarbeitung im OnSelectItem sein?

[PeterPanino]

Zitat:

Zitat von Deep-Sea

Wieso muss die Verarbeitung im OnSelectItem sein?

Das ist etwas kompliziert. Unter anderem deswegen, weil die Items auch mit anderen Methoden ausgewählt werden, z.B. mit bestimmten Tasten und anderen Funktionen. Es wäre sehr kompliziert, das alles auf OnClick umzustellen.

[Deep-Sea]

Ich weiß nicht, ob es funktioniert, aber versuch's doch einfach mal:
Sende dir im OnSelectItem mit PostMessage eine Nachricht. In der Empfangsroutine für die Nachricht kannst du dann hoffentlich auf ItemFocused prüfen...