listbox, memo, richedit

Gør den ikke det automatisk ?

Jens B

På en ListBox skal du prøve at sætte ListBox1.ItemIndex

Memo\'en og RichEdit er noget med en Message som jeg ikke lige kan huske på stående fod

/Martin

nopes, ikke automatisk... desværre ..

ListBox1.ItemIndex := ListBox1.Items.Count-1;

jhald  >> Du har ret det er kun hvis du tilføjer linjerne enkelt vis ....

Hvis du tilføjer en hel stavl så skal du bruge SelStart og SelLenght.

Jeg har lavet en lille dummy her :

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  StringList : TStringList;
begin
  StringList := TStringList.Create;

  for i:= 0 to 50 do
    StringList.Add(IntToStr(i));

  Memo1.Lines.AddStrings(StringList);

  Memo1.HideSelection := false;
  Memo1.SelStart := Length(Memo1.Lines.GetText);
  Memo1.SelLength := 1;
  Memo1.SetFocus;

  FreeAndNil(StringList);
end;

Jens B

tak, det var jo temmeligt hurtigt overstået :)

Jhald >> Det er så dejligt at spilde sin tid på at hjælpe andre.........

undskyld Martin, det var nu ikke for at snyde dig at jeg valgte at aceptere Jens\' spørgsmål, min fejl, hva\' skal jeg gøre for at gøre det godt igen?

Huske at dele dem næste gang, ( jeg havde jo sat næsen op efter en 1/3 del af point\'ne *G* )

/Martin

Det er så okaj, dem må jeg så gi\' dig næste gang jeg opretter et tilfældigt spørgsmål :)

Ja ja, det går nok, det var mest princippet...

Hvis du lige vil havde svar på dit sidste spørgsmål :

RichEdit1.Perform(EM_SCROLL,SB_LINEDOWN,0);