FindWindowEx - SysTabControl32

[bitsetter]

Hi,

ich habe es mal am Dialog "Eigenschaften von Anzeige" ausprobiert also auf dem Desktop rechtsklicken und dann das Menü Eigenschaften wählen.

Delphi-Quellcode:

uses commctrl;

var
  h: HWND;
  Count: integer;
const
  NewIndex= 2;
begin
  h:= FindWindow(nil, 'Eigenschaften von Anzeige');
  if h > 0 then
  begin
    h:= FindWindowEx(h, 0, 'SysTabControl32', nil);
    if h > 0 then
      SendMessage(h, TCM_SETCURFOCUS, NewIndex, 0)
    else
      MessageDlg('SysTabControl Handle = 0', mtError, [mbOk], 0);
  end
  else
    MessageDlg('Handle = 0', mtError, [mbOk], 0);

Damit wird der 3 Tab nach vorne geholt.
Edit: Den Text der Tab kannst du ansonsten noch mit TCM_GETITEM auslesen.