edit change olayında girilen metini seçmek

[mucon]

merhaba arkadaşlar

edit'in change olayında girdiğimiz metini yazdıkça nasıl seçili hale getirebiliriz?

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
begin
   edit1.SelectAll;
end;

yukarıdaki gibi bir kod yazdığımda her yazdığım harfi seçiyor fakat yeni harf girdiğimde seçili harfin üzerine yazıyor. Ben aslında yazdığım tüm metini seçmek istiyorum.. ne yapabilirim? teşekkürler

[husonet]

Merhaba,

Bunun için ilk önce keyPress eventinde String in uzunluğunu alıp cursor'u string'in sonuna getirmelisin.

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
    Uzunluk:Integer;
begin
    Uzunluk := 0;
    Uzunluk := Length(Edit1.Text);
    Edit1.SelStart := Uzunluk;
end;

Ondan Sonrada Change eventine SelectAll procederu ile amacına ulaşmalısın.

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
begin
    Edit1.SelectAll;
end;

Hepsi bu kadar

Kolay Gelsin....

[mucon]

Teşekkür ederim Husonet..