Как получить заголовок текущего окна?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Как получить заголовок текущего окна?

Сообщение edward_K »

Как получить заголовок текущего окна?
Есть функция SetTitle для установки заголовка.
Нужно прочитать старый заголовок и установить новый с добавкой.
Как это попроще сделать?
Желательно без использования наименование объекта.
Ged
Местный житель
Сообщения: 645
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Re: Как получить заголовок текущего окна?

Сообщение Ged »

function cfsGetProp (aObjName : string | longInt,
aPropName : string | longInt,
var aField : anyType
) : longInt;
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Re: Как получить заголовок текущего окна?

Сообщение galover »

CurrentInterfaceTitle
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Как получить заголовок текущего окна?

Сообщение edward_K »

CurrentInterfaceTitle по ctrl+F4 выдал пусто. И в vipprogr.chm он не прописан.
cfsGetProp конечно выдает усе но приходится в макроопределение гнать еще и имя фейса.
Ged
Местный житель
Сообщения: 645
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Re: Как получить заголовок текущего окна?

Сообщение Ged »

edward_K писал(а):CurrentInterfaceTitle по ctrl+F4 выдал пусто. И в vipprogr.chm он не прописан.
Она в g_common.dll
edward_K писал(а):cfsGetProp конечно выдает усе но приходится в макроопределение гнать еще и имя фейса.
а если в скупе с GetIfCcurrentFieldName + ExtractDelimitedWord?
Изврат конечно но ...
galover
Местный житель
Сообщения: 794
Зарегистрирован: 16 ноя 2007, 13:52

Re: Как получить заголовок текущего окна?

Сообщение galover »

CurrentInterfaceTitle работает в коде. Имя фейса можно получить по CurrentInterfaceName (тоже из кода).
Ответить