ctrl kombinasyonlarını engelleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

ctrl kombinasyonlarını engelleme

Mesaj gönderen sga »

slm,
editin içerisinde ctrl combinasyonlarının kullanımını nasıl engellerim?
ctrl+v,ctrl+c gibi
sga
Kullanıcı avatarı
hbahadir
Kıdemli Üye
Mesajlar: 544
Kayıt: 06 Ara 2004 05:03
Konum: BURSA idi artık İST.
İletişim:

Mesaj gönderen hbahadir »

forumda detaylı arama yaparsanız topic kirliliği oluşmaz.

viewtopic.php?t=192&highlight=onkeydown
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

onu denedim işe yaramadı :cry:
sga
Kullanıcı avatarı
DELPHITURKIYE
Üye
Mesajlar: 4
Kayıt: 31 Eki 2005 12:01

Mesaj gönderen DELPHITURKIYE »

bence deneyipte olmayan kodu buraya yazman lazım
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

if ((key = Key_Control) and (Key = Key_C)) then
Key := 0;
sga
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Mesaj gönderen hdayi »

Bi de ne olmadı, ne hata verdi, ne olmasını bekliyordun da ne yaptı gibi detay verirsen, daha çabuk cevap alabilirsin.
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

bu şekilde düzelttim hata vermiyo ama kobinasyonlerıda engellemiyo.niye?

if (Key=VK_control) or (Key=67) then begin
Key:=0;
beep; end;
sga
Kullanıcı avatarı
hbahadir
Kıdemli Üye
Mesajlar: 544
Kayıt: 06 Ara 2004 05:03
Konum: BURSA idi artık İST.
İletişim:

Mesaj gönderen hbahadir »

Kod: Tümünü seç

TShiftState
Delphinin helpinden inceleyin.
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

inceledim aklıma gelen herşeyi denedim ama bi türlü olmuyor :?:
sga
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

Kod: Tümünü seç

if (ssCtrl in Shift) then
Key := 0;  
böylede yaptım bakınca mantıklı gözüküyor ama çalışsada ctrl kombinasyonlarını engellemiyor
sga
Kullanıcı avatarı
hdayi
Kıdemli Üye
Mesajlar: 1284
Kayıt: 29 Oca 2004 01:53
Konum: Erciyes'in eteklerinden.

Mesaj gönderen hdayi »

Kod: Tümünü seç

if ((ssShift in Shift) and (Key = VK_INSERT)) then
Key := 0; 
Yukarda verilen linkdeki kod bu. Burada shift insert engellenmek istemiş.

ssShift shift tuşunu kontrol ediyor
in Shift basılı durumda ise demek
bu durumda sen ssShift yerine ssCtrl yazarsan problemi çözersin.
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned
Resim
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

sanırım bir az önce yolladığım koda bakmadınız zaten bende öyle yaptım ama bir işe yaramadı
sga
Kullanıcı avatarı
TRSoft
Kıdemli Üye
Mesajlar: 636
Kayıt: 13 Şub 2004 11:39
Konum: Konya
İletişim:

Mesaj gönderen TRSoft »

Peki bu kodların hangi eventa yazıyorsunuz.. Formun onkeydown,onkeyup gibi bir eventına yazmalısınız. Ayrıca formun onkeypreview özelliği true olmalıdır.
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.
HZ. MUHAMMED (S.A.)
Kullanıcı avatarı
sga
Üye
Mesajlar: 60
Kayıt: 08 Tem 2005 12:49

Mesaj gönderen sga »

keydown olayına yazıyorum
sga
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
key prese yazmayı dene
çünkü keydown olayı tuşlara basma işlemi bittikten sonra gerçekleşiyor.
(tuştan elinizi kaldırınca) keypres ise basınca.
engelleyememenizin sebebide büyük ihtimalle budur.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Cevapla