Backspace e Basmak.

[s1lv3r]

Arkadaşlar butona bastığım anda memoda bir satır geri almak istiyorum. Örneğin memoda 7. satırdaysa butona basınca 6. satıra dönecek yani bir nevi backspace görevi yapacak nasıl yapabilirim ?

[lazio]

ne yapmak istediği anlayamadım
eğer backspace basılmış gidi davranmak istiyorsan;

Kod: Tümünü seç

Memo1.Text := Copy(Memo1.Text, 1, Length(Memo1.Text) - 1);

yok eğer satır silmeye çalışıyorsan

Kod: Tümünü seç

iLine := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0);
Memo1.Lines[iLine - 1] := '';