Herausfinden, ob TListView gerade vom Benutzer bearbeitet wird

[Redeemer]

Hallo zusammen,

in meinem Programm gibt es viele TListViews (die Standard-Dinger). Ich würde gerne herausfinden, ob ein TListView gerade bearbeitet wird.

Hintergrund:
Ich möchte, dass man mit Strg+C den Inhalt eines TListView kopieren kann. Die Spalten soll man in einem modalen Fenster auswählen können. Damit sich das nicht mit der Standard-Hotkey-Funktion für Kopieren stört, die einem TAction zerschießen würde, greife ich dies bei TApplicationEvents.OnShortcut ab:

Delphi-Quellcode:

procedure TMainForm.ApplicationEventsShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if Msg.CharCode = Ord('C') then
  if GetAsyncKeyState(VK_CONTROL) < 0 then
  if Screen.ActiveControl is TListView then
  if {WIRD NICHT BEARBEITET} then
  begin
    {Form erstellen, usw.}
  end;
end;

Nun könnte es ja sein, dass der Benutzer gerade ein TListItem bearbeitet und aus dem Eingabefeld (was laut ActiveControl eben auch das TListView ist) den derzeitigen Text kopieren und dabei nicht durch das modale Fenster, wodurch seine derzeitige Änderung wohl auch noch abgeschickt werden würde, gestört werden möchte.

Ich weiß, dass man sich da einen Boolean bei TListView.OnEditing auf True und bei TListView.OnEdited auf False setzen kann, aber das ist mir als unzuverlässig in Erinnerung (ich glaube, wenn man das Bearbeiten mit Esc oder Rausklicken abbricht) und die TListViews sind über mehrere TFrame und TForm verstreut, sodass jeder Frame sein eigenes Event bräuchte.

(Delphi 2009)

Vielen Dank im Voraus!

[himitsu]

Wenn eine ListenKomponente in "Bearbeitung" ist, dann ist dort oftmals ein "Edit" eingebaut, welches grade die bearbeitete Stelle ersetzt.

Da kann man auf den Klassentyp dieses Edits reagieren (meist irgendwas mit "InnerEdit")
und/oder man geht die Parents der aktiven Komponente durch und schaut, ob die Komponente oder einer der Parents dem TListView TCustomListView entspricht.



Wieviele ListView gibt es denn und auf wievielen Fenstern verteilen sie sich?

Wenn es überschaubar ist, dann kann man natürlich auch im EventHandling der ListView(s) drauf reagieren, anstatt das ständig global überall auszuwerten.


[add]

Zitat:

Delphi-Quellcode:

if GetAsyncKeyState(VK_CONTROL) < 0 then

Könnte es nicht sein, dass Steuertasten, wie Strg, Shift und Alt, eventuell schon in Msg.KeyData enthalten sind?

[sx2008]

Du könntest auch ein PopupMenu mit dem Listview verknüpfen und dann neben der normalen "Kopieren" (kopiert den Text des ListItem im Focus) ein weiteres Menueitem "View kopieren" vorsehen.
Das wäre dann allerdings eine formular-lokale Lösung während dein Ansatz ja Applikationsweit arbeiten soll.
Der Vorteil wäre dass der Benutzer besser versteht was er da kopiert und ist ausserdem erweiterbar durch weitere Funktionen wie z.B. "View als Datei exportieren".

[Redeemer]

Sorry für die späte Antwort.

Zitat:

Zitat von himitsu (Beitrag 1252767)

Wenn eine ListenKomponente in "Bearbeitung" ist, dann ist dort oftmals ein "Edit" eingebaut, welches grade die bearbeitete Stelle ersetzt.

Da kann man auf den Klassentyp dieses Edits reagieren (meist irgendwas mit "InnerEdit")
und/oder man geht die Parents der aktiven Komponente durch und schaut, ob die Komponente oder einer der Parents dem TListView TCustomListView entspricht.

Ich habe einen TTimer, ein TListView und ein TMemo auf einer Form platziert und habe alle paar Sekunden die Components[] von TForm und TListView aufgelistet. Das Ergebnis ist unabhängig davon, ob das TListView bearbeitet wird, lediglich TListView, TTimer und TMemo.

Zitat:

Zitat von himitsu (Beitrag 1252767)

Wieviele ListView gibt es denn und auf wievielen Fenstern verteilen sie sich?

Wenn es überschaubar ist, dann kann man natürlich auch im EventHandling der ListView(s) drauf reagieren, anstatt das ständig global überall auszuwerten.

Etwa 15 TListView auf 25 Frames würde ich sagen.

Zitat:

Zitat von himitsu (Beitrag 1252767)

[add]

Zitat:

Delphi-Quellcode:

if GetAsyncKeyState(VK_CONTROL) < 0 then

Könnte es nicht sein, dass Steuertasten, wie Strg, Shift und Alt, eventuell schon in Msg.KeyData enthalten sind?

Konnte ich nicht finden.

[himitsu]

ListBox.Components, bzw. Self.Components enthält natürlich nur das, von dem das jeweils der Owner ist.
Ich weiß nun nicht, ob dieses InnerEdit direkt die KistBox als Owner besitzt. (PS: Bei Devexpress ist in der ListBox-Komponente die eigentliche ListBox drin und da drin dann das InnerEdit)

Ich weiß jetzt nicht, ob das "InnerEdit" oder ob dessen Parent als FocusControl vom Delphi verwendet wird.
Das müsstest du mal in Screen.ActiveControl nachsehn.

Wenn nicht, dann direkt an Windows wenden.
GetFocus + FindControl und falls FindControl nichts findet, dann mit GetParent hocharbeiten.