Editte işlem yaparken Buttonun Çalışması

[akuyumcu63]

merhaba;

edit1 - kod bilgisi
edit2 - unvan bilgisi
button1 - kayıt bul butonu

arama işlemi için yukarıda belirttiğim şekilde formda düzenleme yaptım. button1 in onclick olayına arama için gerekli kodları yazdım. edit1 ve edit2 yada her ikisini birden değer yazdıktan sonra butona tıkladığım zaman arama işlemimi gerçekleştiriyorum. herhangi bir sıkıntı yok,

şimdi yapmaya çalıştığım şey şu; edit1 e değer yazıp enter tuşuna bastığım zaman button1 in onclick inde yazılan kodlar çalışsın, sonra edit2 ye değer yazıp Enter tuşuna bastığımda yine sanki fareyle button1 e tıklanmış gibi button1 in onclick indeki kodlar çalışsın,

Edit te işlem yaparken butonun onclick inde yazılmış kodları nasıl çalıştırabilirim.

teşekkür ederim.

[mrmarman]

Merhaba.

Dinamik yapılar iyidir, destekliyorum...

Aşağıda Edit1'in keypress eventine yazacağını gösterdim. Edit2'nin KeyPress eventi de tıpatıp aynısı ise Edit2'nin OnKeyPress eventine sadece Edit1KeyPress olarak yer aldırman kafidir. Veya tercih senin aynı kodu oraya da yazarsın. Tıpkı kod yazılacaksa ilk söylediğim şekil ile tek noktadan kontrol imkanını arttırmış olursun.

- Kod içerisinde if key = CHR(13) demek Enter basıldı mı diye sorgudur. Begin bloğunun hemen altında bu key'i #0'a eşitlemenin amacı ise ses sisteminde gelecek olan DING sesini bertaraf etmektir.

- if Sender is TEdit then sorgusunda ise butona elinizle bastığınızda farklı, edit'den geldiyse farklı davranmak isterseniz diye iki opsiyonlu yapı oluşturmuş olduk.

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = CHR(13) then
  begin
    Key := #0;
    Button1Click( Sender );
  end;
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TEdit then
    ShowMessage( 'Gelen Edit = '+ TEdit(Sender).Name );
end;

[akuyumcu63]

merhaba;

verdiğiniz cevap için teşekkür ederim. ayrıca olayı adım adım anlatma zahmetine katlanmanız da ayrı bir takdir konusu

çalışmalarınızda muvaffakiyetler diliyorum.

[AVCISOFT]

Merhaba,
Butonların Default özelliğinide kullanabilirsin.

Buton nesneleri : Button1, Button2
Edit nesneleri : Edit1, Edit2

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := 'but 1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Caption := 'but 2';
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Button1.Default := True;
  Button2.Default := False;
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Button2.Default := True;
  Button1.Default := False;
end;