| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Sendmessage на TStatusbar
Alexandr_5 © (2008-09-13 10:54:00)Добрый всем день. Суть проблемы в следующем. Есть программа (чужая). По клику кнопки мне нужно вывести некоторый текст на статусбар этой программы. Вывода текста я добился в принципе, только осталась небольшая проблема, которую решить не могу никак: у меня текст выводится только в statusbar.panels[0] (вроде сюда, в общем в самую первую часть статусбара). Помогите кто чем может как мне например вывести текст в n-й тстатуспанели тстатусбара.
вот код мой:
procedure TForm1.Button1Click(Sender: TObject);
var
tabul, tabsh, memka, chat_hwnd,stb,p: HWND;
tk: TClipboard;
begin
chat_hwnd := FindWindow('TFrmJK', nil); //нашли форму
if chat_hwnd <> 0 then
begin
stb := FindWindowEx(chat_hwnd, 0, 'TStatusBar', nil); // и статусбар
if stb <> 0 then
begin
p := FindWindowEx(stb, 0, 'TStatusPanels', nil); //пытаемся найти панелс
if p <> 0 then
showmessage('!!!'); // но не находим
sendmessage(stb,WM_SETTEXT,0,lparam(lpctstr('1111'))); // в статус баре мой текст
end;
end;
end;
Alexandr_5 (2008-09-14 12:30:00) [21]Прошу прощения за глупый вопрос.. А какой модуль надо подключить чтоб SB_SETTEXT не было Undeclared identifier?
в Messages нету..
Юрий Зотов (2008-09-13 17:56:00) [22]Посмотрите сообщение SB_SETTEXT.
| |
Страницы: 