Платные хостинги     Раскрутка сайта     Книги по программированию

Управление PageControl'ом

- Знают... всем просто влом Код 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;highlightSyntax('delphiRiYmJi','delphi'); Это сообщение отредактировал Girder - 14.2.2005, 10:08

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

- 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;highlightSyntax('delphijVkY2I','delphi');Удачи. Это сообщение отредактировал Girder - 15.2.2005, 16:35

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD