Tabs

← →
DjOne (2004-06-13 23:29) [0]

Есть сообщение TCM_GETITEM. Как с ней работать?
Вызываю и получаю ошибку.

← →
Mim1 © (2004-06-13 23:52) [1]

Код в студию (с) Якубович + я :)

← →
DjOne (2004-06-14 00:13) [2]

Всё время забываю.

Sendmessage(xHWND,TCM_GETITEM,0,Longint(@PI)) Label1.caption:=PI.pszText

← →
GuAV © (2004-06-14 01:16) [3]

> Sendmessage(xHWND,TCM_GETITEM,0,Longint(@PI))
> Label1.caption:=PI.pszText

имхо мало кода
покажи откуда xHWND и объявление PI

← →
Mim1 © (2004-06-14 10:17) [4]

typedef struct _TC_ITEM { UINT mask; // value specifying which members to retrieve or set UINT lpReserved1; // reserved; do not use UINT lpReserved2; // reserved; do not use LPSTR pszText; // pointer to string containing tab text int cchTextMax; // size of buffer pointed to by the pszText member int iImage; // index to tab control"s image LPARAM lParam; // application-defined data associated with tab } TC_ITEM;

Вообщем в
LPSTR pszText; // pointer to string containing tab text надо выделить кусок памяти, а в
int cchTextMax; // size of buffer pointed to by the pszText member надо записать сколько ее выделили

← →
DjOne (2004-06-15 01:50) [5]

function GetTabText():String; var tm:tc_item; begin GetMem(Buff,256); ZHWND:=GetFocus; tm.pszText:=buff; tm.cchTextMax:=256; sendmessage (zHWND,TCM_GETITEM, 1, longint(@tm)); GetTabText:=buff; end;

Запускаю свою прогу и прогу где есть таб. вызываю фун-цию GetTabText и то окно виснет, а вскоре ошибка!
Что не так?

← →
GuAV © (2004-06-15 02:20) [6]

tm.mask:=TCIF_TEXT забыл.

← →
DjOne (2004-06-15 02:49) [7]

Всё равно так же.

> ZHWND:=GetFocus;

> sendmessage (zHWND,TCM_GETITEM, 1, longint(@tm));

TabCtrl.Perform(TCM_GETITEM, 1, longint(@tm));

У тебя же другая программа - значит, чужое адресное пространство - читай о внедрении в чужой процесс у Рихтера (там на примере ListView)

← →
DjOne (2004-06-15 13:03) [10]

ListView я уже проходил. Неужели и это такая же муть!!!

Tabs Найти похожие ветки