Selected ist dedacht für Listen mit MultiSelect
in Deiner Liste setze einfach EditList.ItemIndex auf den gewünschten Index
Bernd
BTW: Gewöhn Dir dieses MainForm.Irgendwas.Eigenschaft in Formularmethoden ab, das ist logisch falsch
Wenn Du es weglässt, so zum Beispiel
Delphi-Quellcode:
// -- nach oben bewegen --
procedure TMainForm.UpButtonClick(Sender: TObject);
begin
if EditList.ItemIndex > 0 then
EditList.Items.Move(EditList.ItemIndex, EditList.ItemIndex - 1);
EditList.SetFocus;
end;
wirst Du feststellen, dass es auch ohne geht, solange es sich um Formularmethoden handelt
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]