Поменять шрифт ListBox посылкой сообщения

  LB.Items.Clear;

  for i := 0 to (SL.Count)-1 do
  begin
    LB.Items.Add(Copy(SL.Strings[i], 1, j-1));
  end;

  SendMessage(LB.handle, wm_SetFont, GetStockObject(System_Fixed_Font), 1);

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Поменять шрифт ListBox посылкой сообщения", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!