Вадик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;