Re: How can i check the last line text?

Return to index

Author

Message

Marcos Lommez

Posted: 10/03/2003 3:06:33

Thanks Sergey...

the code works perfectly.

But something strange is happening when trying to clear or delete an item

Im making some tests with the code below but is not working

RichViewEdit is not beeing completly cleared on KeyDown event. RichViewEdit

will always have one line in blank.

If i click on the button the RichViewEdit is completely cleared.

Why this is happening?

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

     RichViewEdit1.DeleteItems(RichViewEdit1.ItemCount -1, 1);

     RichViewEdit1.Format;

     RichViewEdit1.SetFocus;

end;

procedure TForm1.RichViewEdit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

     if key = 13 then

        BitBtn1.Click;

end;