Keypress

[Misafir]

selam!
Herhangi bir editin onkeypress olayına enter tuşunu tanıttım.
İşlem gerçekleşiyor, fakat enter a bastığım zaman tın diye bir ses çıkıyor
bu sesi engellemek istiyorum?

[mussimsek]

kodu görmeden yorum yapamayız.

Kolay gelsin.

[muskut]

bu editin seni pek Tınlamadığı anlamına geliyor

[Misafir]

Kod: Tümünü seç

procedure TSorg2.Edit1KeyPress(Sender: TObject; var Key: Char);
var txt:string;

begin
 if key=#13 then
 begin
  case radiogroup1.ItemIndex of
   0:begin
      txt:='where malkodu like '+'"'+edit1.Text+'%'+'"';
      query1.close;
      query1.SQL.Clear;
      query1.SQL.Add('Select * from maltype');
      query1.SQL.Add(txt);
      query1.ExecSQL;
      query1.Open
     end;
   1:begin
      txt:='where maladi like '+'"'+edit1.Text+'%'+'"';
      query1.close;
      query1.SQL.Clear;
      query1.SQL.Add('Select * from maltype');
      query1.SQL.Add(txt);
      query1.SQL.Add('order by maladi');
      query1.ExecSQL;
      query1.Open
     end;
   2:begin
      if edit1.Text='' then txt:='Where ureticifirma is null' else
      txt:='where ureticifirma like '+'"'+edit1.Text+'%'+'"';
      query1.close;
      query1.SQL.Clear;
      query1.SQL.Add('Select * from maltype');
      query1.SQL.Add(txt);
      query1.SQL.Add('order by ureticifirma');
      query1.ExecSQL;
      query1.Open
     end;
   3:begin
      if edit1.Text='' then txt:='Where modeli is null' else
      txt:='where modeli like '+'"'+edit1.Text+'%'+'"';
      query1.close;
      query1.SQL.Clear;
      query1.SQL.Add('Select * from maltype');
      query1.SQL.Add(txt);
      query1.SQL.Add('order by modeli');
      query1.ExecSQL;
      query1.Open
     end;
   4:begin
      case combobox1.ItemIndex of
       0:begin
          if edit1.Text='' then txt:='where topalfiyat=0'else
          txt:='where topalfiyat='+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topalfiyat');
          query1.ExecSQL;
          query1.Open
         end;
       1:begin
          if edit1.Text='' then txt:='where topalfiyat=0'else
          txt:='where topalfiyat>'+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topalfiyat');
          query1.ExecSQL;
          query1.Open
         end;
       2:begin
          if edit1.Text='' then txt:='where topalfiyat=0'else
          txt:='where topalfiyat<'+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topalfiyat');
          query1.ExecSQL;
          query1.Open
         end;
      end;
     end;
   5:begin
      case combobox1.ItemIndex of
       0:begin
          if edit1.Text='' then txt:='where topsafiyat=0'else
          txt:='where topsafiyat='+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topsafiyat');
          query1.ExecSQL;
          query1.Open
         end;
       1:begin
          if edit1.Text='' then txt:='where topsafiyat=0'else
          txt:='where topsafiyat>'+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topsafiyat');
          query1.ExecSQL;
          query1.Open
         end;
       2:begin
          if edit1.Text='' then txt:='where topsafiyat=0'else
          txt:='where topsafiyat<'+edit1.Text;
          query1.close;
          query1.SQL.Clear;
          query1.SQL.Add('Select * from maltype');
          query1.SQL.add(txt);
          query1.SQL.Add('order by topsafiyat');
          query1.ExecSQL;
          query1.Open
         end;
      end;
     end;
   end;
  end;
 end;

[aslangeri]

S.A.
dın sesi için formun keypresine

Kod: Tümünü seç

if key=#13 then key:=#0;

yazman yeterli olur
detaylı bilgi için bakınız
viewtopic.php?t=3614

[Misafir]

A.s.
arkadaşım teşekkür ederim, işlem tamam