Поменять шрифт 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);


Далее: Пропускать сообщения от клавиатуры и мышки в своем приложении »»