Perform не отправляет сообщение

[Browny]

Уважаемые форумчане, есть вопрос:

Код: Выделить всё

PageControl1.Perform(TCM_SETIMAGELIST, 0, smallimage.Handle)

- этот код не работает.

Код: Выделить всё

SendMessage(PageControl1.Handle, TCM_SETIMAGELIST, 0, smallimage.Handle)

- этот код - работает.

есть объяснения? Может, есть опция компилятора для этого, а я не знал?
У меня в Lazarus используется уже -dPassWin32MessagesToLCL.

[Sergei I. Gorelkin]

Метод Perform не предназначен для отправки сообщений.
В Дельфи он вызывает оконную процедуру контрола, как если бы сообщение было на самом деле отправлено.
При этом сообщение в конце концов может попасть в Windows из-за того, что для необработанных сообщений вызывается DefWindowProc.

Этот механизм может работать только в Windows, поэтому в LCL его нет.

[Browny]

Sergei I. Gorelkin, спасибо! Ситуация ясна.