Zitat von
Bomberbb:
Nun bei mir funktioniert es leider nicht.
Ich kann in dem Feld 'Liste überwachter Ausdrücke' Leider nicht alles markieren.
bei der Zeile
PostKeyEx(wndChild, VK_END, [ssCtrl, ssShift], True);
Springt er nur zum Ende und kopiert dann den letzten leeren Ausdruck!
Wird denn alles markiert, wenn du von Hand Ctrl+Shift+End drückst?
(oder bei Shift+End ?)
Zitat von
Bomberbb:
Sag mal, ist der TVirtualStringTree für höhere Delphiversionen??? Hier beim Testen hab ich den Pfad nie durchlaufen.
Bei den neueren Delphi Versionen (ab D2005?) wurde das DrawGrid durch einen VST ersetzt.
Zitat von
Bomberbb:
und auch bei mehreren Fenstern, dafür aber nur für die deutsche Delphi Version.
Mit diesen Änderungen sollte es auch bei der englischen Version funktionieren:
("(Pos('Watch List', Caption) > 0)" hinzugefügt.)
Delphi-Quellcode:
function EnumProcTTabSheet(wnd: HWND; pwnd: pHWND): BOOL; stdcall;
var
buf, Caption: array[0..255] of Char;
begin
Result := True;
GetClassName(wnd, buf, SizeOf(buf) - 1);
SendMessage(wnd, WM_GETTEXT, 256, Integer(@Caption));
if (buf = 'TTabSheet') and ((Pos('Liste überw', Caption) > 0) or (Pos('Watch List', Caption) > 0)) then
begin
pwnd^ := wnd;
Result := False;
end;
end;
function EnumProcTWatchWindow(wnd: HWND; pwnd: pHWND): BOOL; stdcall;
var
buf, Caption: array[0..255] of Char;
begin
Result := True;
GetClassName(wnd, buf, SizeOf(buf) - 1);
SendMessage(wnd, WM_GETTEXT, 256, Integer(@Caption));
if (buf = 'TWatchWindow') and ((Pos('Liste überw', Caption) > 0) or (Pos('Watch List', Caption) > 0)) then
begin
pwnd^ := wnd;
Result := False;
end;
end;