ListView aus einer fremden Anwendung durchsuchen/anklicken

[Innos]

Hi!

Ich versuche mich gerade an einem prog, dass ein ListView aus einem fremden Programm ausliest...
ich benutze den code von toms, den ich hier iwo gefunden habe,um das listView überhaupt einmal auszulesen und alles in mein eigenes ListView zu übertragen.

Jetzt möchte ich aber, wenn ich in meinem Programm, in meinem ListView eine Zeile anklicke, der selbe klick auch auf dem listview in dem fremden Programm ausgeführt wird. Das heißt ich muss die fremde listview nach der angeklickten´Caption durchsuchen und dieses item anklicken...

also die cation von der angeklickten zeile kriege ich so heraus:

label2.Caption:=(listview1.Selected.Caption); nur wie durchsuche ich jetzt die fremde listview danach und klicke das item danach an?
ist das überhaupt möglich?

vielen Dank schonma im Vorraus

mfg

[DeddyH]

Schau mal nach LVM_FINDITEM und LVM_SETITEM (zumindest klingen die Beschreibungen recht vielversprechend).

[toms]

Hallo Innos,

Zitat:

Ich versuche mich gerade an einem prog, dass ein ListView aus einem fremden Programm ausliest...
ich benutze den code von toms, den ich hier iwo gefunden habe,um das listView überhaupt einmal auszulesen und alles in mein eigenes ListView zu übertragen.

Suchen kannst du ein Item mit LVM_FINDITEM. Da du jedoch die fremde Listview kopierst, kannst du ja
gleich direkt auf den entsprechenden Itemindex zugreifen. (ausser in der fremde Listview wurden die Items und somit Reihenfolge
in der Zwischenzeit geändert.

Zitat:

Jetzt möchte ich aber, wenn ich in meinem Programm, in meinem ListView eine Zeile anklicke, der selbe klick auch auf dem listview in dem fremden Programm ausgeführt wird. Das heißt ich muss die fremde listview nach der angeklickten´Caption durchsuchen und dieses item anklicken...

Kann ich nicht genau sagen, was für eine Nachricht dem entsprechenden Item geschickt werden muss
oder ob es nur genügt, das Item zu markieren?

Nachtrag: So sollte es funktionieren. Vielleicht gibt's noch eine elegantere Methode?

1. Item sichtbar machen LVM_ENSUREVISIBLE
2. Item Position herausfinden (mit LVM_GETITEMRECT / LVM_GETITEMPOSITION)
3. Mit mouse_event WM_LBUTTONDOWN/WM_LBUTTONUP senden.

[Innos]

also ich lese diese listbox aus, klicke dann ein beliebiges item an... (die original listbox in dem fremden prog KÖNNTE geändert worden sein, aber das item ist immernoch enthalten) und dann soll es quasi nach der angeklickten cation aus meinem prog suchen... und das dazu gehörige item in dem fremden prog an klicken...

so THX erstma für eure tips ich schaus mir gleich ma an

[Innos]

mmhh check grade nicht wie ich das machen soll...

also
sendmessage(w,LVM_FINDITEM,0,0); nur diese nullen dahinten sind alle integer werte xD sry dass ich son noob bin aber wo kommt da mein string hin, nachdem ich suchen will?

[toms]

Zitat von Innos:

mmhh check grade nicht wie ich das machen soll...

also
sendmessage(w,LVM_FINDITEM,0,0); nur diese nullen dahinten sind alle integer werte xD sry dass ich son noob bin aber wo kommt da mein string hin, nachdem ich suchen will?

Du kannst ja die items per Iteration suchen, d.h du nimmst in etwa den gleichen Code wie zum auslesen der Listview und ermittelst so nach dem item / itemindex.

[Innos]

so ich habs jetzt soweit, dass ich mithilfe deines streams, toms, dieses ListView durchsuchen kann... ich habe also die nummer des Items aus dem original ListView... wie sende ich jetzt einen klick genau auf dieses item?

also quasi:

Delphi-Quellcode:

sendmessage(w,WM_LBUTTONDOWN,0,0);
sendmessage(w,WM_LBUTTONUP,0,0);

nur wo gebe ich jetzt dieses item an, dass er in dem handle (die ListView) anklicken soll?

danke schon mal für eure hilfe

[toms]

Mir ist keine Möglichkeit bekannt, einem bestimmten Item eine "onclick" Nachricht zu schicken.
Eine Möglichkeit wäre es, das gefundene Item zu markieren und dann Enter der Listview zu senden. Dies funktioniert sogar dann, wenn das Fenster, auf welchem sich die Listview befindet, nicht sichtbar ist.

Die Click Funktion könnte dann grob etwa so aussehen:

Delphi-Quellcode:

function LVClickItem(hwndLV: HWND; sItemText: string): Boolean;
const
  MaxTextLen = 1024;
var
  MemMgr: TProcessMemMgr;
  Item: TLVItem;
  i: Integer;
  PrItemText: PChar;
  PrItem: PLVItem;
begin
  Result := False;
  MemMgr := CreateProcessMemMgrForWnd(hwndLV);
  try
    PrItemText := MemMgr.AllocMem(MaxTextLen);
    PrItem := MemMgr.AllocMem(SizeOf(TLVItem));
    i := ListView_GetNextItem(hwndLV, -1, LVNI_ALL);
    while i >= 0 do
    begin
        //Item Eigenschaften setzen
        Item.mask := LVIF_TEXT;
        Item.iItem := i;
        Item.iSubItem := 0;
        Item.pszText := PrItemText;
        Item.cchTextMax := MaxTextLen;
        MemMgr.Write(Item, PrItem, SizeOf(TLVItem));
        if not ListView_GetItem(hwndLV, PrItem^) then Break;
        MemMgr.Read(PrItem, Item, SizeOf(TLVItem));
        //Überprüfen, ob Item mit gesuchtem Item übereinstimmt.
        if MemMgr.ReadStr(Item.pszText) = sItemText then
        begin
          //Item "Selected" Eigenschaften setzen
          Item.state := LVIS_SELECTED;
          Item.stateMask := LVIS_SELECTED;
          //Item markieren
          MemMgr.Write(Item, PrItem, SizeOf(TLVItem));
          if Boolean(SendMessage(hwndLV, LVM_SETITEMSTATE, i, LongInt(PrItem))) then
          begin
            //Enter senden
            PostMessage(hwndLV, WM_KEYDOWN, VK_RETURN, 0);
            PostMessage(hwndLV, WM_KEYUP, VK_RETURN, 0);
            Result := True;
          end;
          Break;
        end;
        i := ListView_GetNextItem(hwndLV, i, LVNI_ALL);
    end;
  finally
    MemMgr.Free;
  end;
end;

[Innos]

wooooww thx

ich werde deinen code noch bisl ändern zB geht das mit dem Enter nicht.... also atm markiere ich das item so wie du und dann sene ich den doppelklick aus

GANZ großes Kino

[toms]

Zitat von Innos:

wooooww thx

ich werde deinen code noch bisl ändern zB geht das mit dem Enter nicht
GANZ großes Kino

Um was für ein Programm handelt es sich denn? Wie sendest du den "doppelklick"?