VPF::Управление PageControl'ом - Форум программистов

Гость_guest

Дата 11.2.2005, 01:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Гость_guest

Дата 13.2.2005, 16:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Girder

Дата 13.2.2005, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Цитата

Знают... всем просто влом 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;

Это сообщение отредактировал(а) Girder - 14.2.2005, 10:08

--------------------

Как слышим, так и пишим.
Истина где-то там...

Гость_guest

Дата 15.2.2005, 01:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Wowa

Дата 15.2.2005, 01:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

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

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

Girder

Дата 15.2.2005, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

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;

Удачи.

Это сообщение отредактировал(а) Girder - 15.2.2005, 16:35

--------------------

Как слышим, так и пишим.
Истина где-то там...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »