HusoEdit te Keypress Eksikliği

[ender_arslanturk]

Merhaba Arkadaşlar,

Husonet (HusoEdit) Komponentini Delphiye Kurdum.. Ama Normal Bir Editin Özelliklerine Tam Olarak Cevap Vemedi.

Mesela ;

procedure Tform1.HusoEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 // Enter' a Basılmış İse
showmessage('Merhaba Giriş Yapıldı ....');
end;


procedure Tform1.HusoEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 // Enter' a Basılmış İse
HusoEdit1.OndblClick(Sender) // OnDblClick Olayını Gerçekleştir
end;

Gibi Komutları işlemememekte Bu Konu İle İlgili Bilhassa Hüseyin Abi Senden ve Diğer Arkadaşlar Sizden Yardımlarınızı Bekliyorum ....

Şimdiden Teşekkür Ederim...

Saygılarımla,

MSN: Ender_Arslanturk@hotmail.com

[husonet]

Merhaba

Olay aslında bileşenin key press, keydown eventine yazdığım kodlardan kaynaklanıyor.

Kod: Tümünü seç

    Key := #0;
    Text := Buffer;
    Reformat;
    SelStart := Length(Text)-CursorPos;

Gördüğün gibi procederun bitiminde key deki değeri sıfırlıyorum. Haliyle bileşen Form üzerinde icraata geri dönüşünde key değerini kaybediyor. Kodlar açık istediğin gibi modifie edebilirsin.

Ayrıca bu konuyu bilgilendirdiğiniçin teşekkür ederim.

Kolay Gelsin...

[ender_arslanturk]

Hüseyin abi bu komponent gerçekten çok güzel olmuş,

Ayrıca sağol da ben bu kodları nasıl değiştireceğimi bilmemekteyim acaba gerekli değişikliği sen yapsan da txt olarak dosyayı alabilirmiyim senden.

Ayıp Olmaz İse Tabii

Saygılarımla,

[husonet]

Hüseyin abi bu komponent gerçekten çok güzel olmuş,

Ayrıca sağol da ben bu kodları nasıl değiştireceğimi bilmemekteyim acaba gerekli değişikliği sen yapsan da txt olarak dosyayı alabilirmiyim senden.

Ayıp Olmaz İse Tabii

Saygılarımla,

Benim bu hususa bakmam zaman alabilir Ama bakacam sen bu konuyu Makale ve İpucunda ki HusoEdit bileşeni başlığına eklersen takip etmem kolay olur.

Not : Test eden arkadaş askerde de o yüzden

Teşekkürler.