Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Управление PageControl'ом

Автор: Гость_guest 11.2.2005, 01:49

Мне нужно перемещаться в PageControl другого приложения. Как это можно реализовать?

Автор: Гость_guest 13.2.2005, 16:15

Что никто не не знает? Надо переместиться с одной страницы на другую.
Я нахожу дескриптор этой страницы, но какое сообщение нужно ей отправить, чтоб она открылась?

Автор: Girder 13.2.2005, 22:55

Цитата

Знают... всем просто влом smile

Код

procedure TForm1.Button1Click(Sender: TObject);
const
 TCM_GETITEMCOUNT=$1304;
 TCM_SETCURFOCUS=$1330;
var i:integer;
    PageControl_Handle:HWND;
begin
 PageControl_Handle:=$000F052A; //Типо некий дескриптор PageControl-а
 i:=SendMessage(PageControl_Handle,TCM_GETITEMCOUNT,0,0);
 while i>0 do
  begin
   dec(i);
   SendMessage(PageControl_Handle,TCM_SETCURFOCUS,i,0);
   //Application.ProcessMessages;
   Sleep(1000);
  end;
end;

Автор: Гость_guest 15.2.2005, 01:02

Проблема в том, что я не могу найти дескриптор PageControl, а могу найти только дескриптор страницы по её имени. Можно как нибудь по-другому, исходя из этих данных?

Автор: Wowa 15.2.2005, 01:17

там это к функции по которой ты находишь окна Findчто-то(точно не помню) в конце добавляться _ex (также точно не помню уже), и тогда можно искать элементы всякие в окне smile

Посмотри просто список функций WINAPI.

Автор: Girder 15.2.2005, 15:26

Admin не совсем так... просто мы тогда не все элементы найдем.

Вот код который ищет, в указанном окне, PageControl-ы:

Код

procedure TForm1.Button1Click(Sender: TObject);
procedure RegisterWindow(hWin:THandle);
const TCM_GETITEMCOUNT=$1304;
var h:THandle;
    Buffer:array [0..255] of Char;
begin
 GetClassName(hWin,Buffer,SizeOf(Buffer)); //просто так... для вывода класса
 Memo1.Lines.Add(Buffer); //Просто вывод имени класса найденного окна
 if SendMessage(hWin,TCM_GETITEMCOUNT,0,0)<>0 then //Тупо проверяем на PageControl
  memo1.Lines.Add('Нашел: $'+IntToHex(hWin,8)); //выводим дескриптор найденного PageControl-а
 h:=GetWindow(hWin,gw_Child);
 if h<>0 then RegisterWindow(h);
 h:=GetWindow(hWin,gw_hWndNext);
 if h<>0 then RegisterWindow(h);
end;
begin
 RegisterWindow(GetWindow(Form1.Handle,gw_Child)); //где Form1.Handle нужно заменить на дескриптор окна, где необходимо найти PageControl-ы (а все остальное в ентой строке... оставить как есть!
end;

Удачи.