DELPHI/Часто задаваемые вопросы и ответы на них/ОС и железо



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / ОС и железо / Поменять шрифт ListBox посылкой сообщения

Поменять шрифт 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);
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru