Delphi

Может мне кто-нибудь подсказать, как перетащить курсор в нужное место программно?

[yan_kos]

Вот WinAPI функция:
BOOL SetCursorPos(
int X, // горизонтальная позиция
int Y // вертикальная позиция
);

Обе координаты в экранные

Спасибо.
А как взять координаты текущего положения мыши?

И можно ли чтобы координаты были не экранные а привязывались к какому-нибудь компоненту?

[ЕЖ]

GetCursorPos
ClientToScreen/ScreenToClient

Необходимо перевести данный код на язык Pascal

/ Получить атрибут с location текущего материала
ksIteratorPtr iter( kompas->GetIterator() );
BOOL res = iter->ksCreateAttrIterator( docReference, 0, 0, 0, 0, MATERIAL_ATTR_ID );
long resOld = iter->ksMoveAttrIterator( "F", NULL );

if ( pAttr )
{
ksAttributeObjectPtr attrObj( kompas->GetAttributeObject() );

// Инициализировать структуру массива для атрибута
ksUserParamPtr values( kompas->GetParamStruct( ko_UserParam ) );
values->Init();
ksDynamicArrayPtr array( kompas->GetDynamicArray( LTVARIANT_ARR ) );
ksLtVariantPtr val( kompas->GetParamStruct( ko_LtVariant ) );
val->Init();
val->strVal = "";
array->ksAddArrayItem( -1, val );
values->SetUserArray( array );

// Считать атрибут
attrObj->ksGetAttrRow( pAttr, 0L, NULL, NULL, values );
array->ksGetArrayItem( 0, val );
m_sLocation = (char*)val->strVal;
}

Меняй стрелочки на точки, а {} - на begin / end

[YAS]

tinde:
Меняй стрелочки на точки, а {} - на begin / end

Да нет. Дело не только в общем оформлении!

Какие библиотеки используются? Как описаны типы?
Значения констант?

А как можно распечатать Image ?

Image находится на Frame...

никто не знает ?

Тогда ещё вопрос: в Image Editor можно создать свою иконку курсора. А как его использовать, применить?