markiertes element in der listbox immer in der mitte!

[markus lemcke]

hallo,

ich habe folgendes problem: <br>
ich habe eine listbox in der z. b. 5 zeilen sichtbar sind.<br>
wenn jetzt mein programm ein item aus der listbox auswählt, <br>
soll es immer als dritte zeile zu sehen sein, damit man auch sieht<br>
was danach noch für zeilen kommen! wer weiß wie es geht. <br>

gruß

markus

[markus lemcke]

scrollby sieht nicht schlecht aus, aber welchen wert nimmt man da

[markus lemcke]

mit dem befehl kann man ein memo scrollen aber keine listbox:<br>
SendMessage(Memo1.Handle, EM_Scroll, SB_PAGEDOWN, 0); <br>
wer hilft mir?

gruß

marku

[Jens Schumann]

Hallo Markus,<br>wie wäre es denn damit:
<pre><font size="1" face="Verdana">
procedure TForm1.ListBox1Click(Sender: TObject);
begin
SendMessage(ListBox1.Handle, LB_SETTOPINDEX, ListBox1.ItemIndex-2, 0);
end;
</font></pre>
<br>:-) Jens Schuman

[markus lemcke]

jens du bist ein genie!! <br>
so ist es mir noch lieber: <br>
SendMessage(woerterbuch.Handle, LB_SETTOPINDEX, <br> woerterbuch.ItemIndex, 0);<br>
da steht das ausgewählte immer oben, dass ist noch genialer!!!<br>

danke!!

marku