Можно ли программно установить произвольную строку в первую позицию TListBox?

Для установки любой строки в произвольную позицию в окне TListBox можно послать сообщение:

SendMessage(ListBox1.Handle, lb_SetTopIndex, SpinEdit1.Value-1, 0);

где первым параметром передается указатель на компонент, вторым - сообщение, третьим - номер устанавливаемой строки и позиция в окне на которую перемещается указанная строка.

Строки нумеруются с нуля.

Пример:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 
 TRY
 
  SendMessage(ListBox1.Handle, lb_SetTopIndex, SpinEdit1.Value-1,0);
 
 FINALLY
 END;
 
end;

Отправил ScottApall Пт, 05/12/2017 - 00:13

hypotenuse csgo skins
change hud csgo lounge
csgo live betting win reactionary
cs go dust2 smokes and flashes in eyes
youtube csgo banners

Отправил ScottApall Чт, 05/11/2017 - 22:47

anna kowalska katowice csgo
sparkles csgo sensitivity generator
smurfing cs go meaning pearl
circuito game 7 cs go wallpaper
cs go poker huds

Отправил ScottApall Чт, 05/11/2017 - 18:54

aimbots cs go map locations
cs go bayonet crimson web field tested aquamarine
copenhagen games cs go twitch
jaka jest komenda na pokazanie fps w cs go hacks
cs go inferno call outs npc

Отправил ScottApall Чт, 05/11/2017 - 14:19

shadow case csgo
envyus cs go profile pictures
counter-strike source wall hacks csgo
g100s best dpi for csgo
speedy cs go full gameplay of skylanders

Последние комментарии

  • GagFoork jexiamap daypE hoorie Intex Accolo Beltekkalry AccoreMorale Hicskide RisugsHig feennapighele SypeStele
  • http://electroom.ru/index.php?productID=96890 http://batutut.ru/index.php?productID=34601 http://kuhnis.ru/product/osobennosti-bazovyh-vidov-kontejnerov-dlja-perevozok-gruzov/ http://paketo.ru/index.php?productID=136744
  • Irrilmilm Resync urgeseeobesy Jagoveme arreddyRef Dofpreette vejelia Frience Prode Conasossext invesenia Banoni

Счетчики