Вадик05

Спасибо, разъяснили отлично.

Вообщем, обойти можно так: Использовал строчку: LItem.ItemData.Bitmap.Assign(Form2.Image1.Bitmap); а компонент Image в StyleBook переименовать в icon. Но почему 1 вариант не работал как надо не ясно.

Здравствуйте! Наткнулся на ошибку в listbox'е и не знаю как её обойти. Пишу на XE6. Добавил в StyleBook в раздел listboxitemstyle компонент Image и Checkbox, после чего запустил приложение. Проставил чекбоксы (вручную) и загрузил картинки в Image. все сработало, но после прокрутки списка вниз и возврата к началу списка, те строки, которые были временно скрыты, изменились сами по себе (изменились Image и Checkbox). C чекбоксами решил проблему убрав их из listboxitemstyle и указав в свойстве listbox'а showcheckboxes:=true. Что делать с Image не понятно. Прошу посоветовать, как решить проблему с отображением картинок. XE6 ошибка.zip

Очень прошу помочь. Пишу на XE6. Есть код под VCL, который ищет все заголовки окон WINDOWS. решил интегрировать в FM. В результате ошибка: [dcc32 Error] Unit3.pas(76): E2003 Undeclared identifier: 'Handle'. Вот код: procedure TForm3.SpeedButton1Click(Sender: TObject); var hwin:hwnd; buff: array [0..127] OF Char; s :string; begin hwin := GetWindow(application.Handle, gw_HWndFirst); while hwin <> 0 do begin GetWindowText(hwin, buff, sizeof(buff)); s := StrPas(buff); if s <> '' then begin if Pos('Watch 3 Alarms :',s )<>0 then begin showwindow(PAnsiChar(application.Handle),sw_hide); hwin:=FindWindow(nil, Pchar(s)); ShowWindow(hwin,SW_SHOWMAXIMIZED); keybd_event(VK_LCONTROL, 0, 0, 0); //Нажатие левого Ctrl. if label2.text='Комната 01' then keybd_event(Ord('2'), 0, 0, 0) else //Нажатие '1'. keybd_event(Ord('1'), 0, 0, 0); //Нажатие '1'. keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Ctrl. ShowWindow(hwin,SW_HIDE); fdquery1.Active:=false; fdquery1.Active:=true; end;