D5 + Liste überwachter Ausdrücke speichern???

[toms]

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;