Aktif bileşene göre arama yapmak

[mmnckr]

Arkadaşlar selam; öyle birşey istiyorumki; cursor um edit1 de iken yani edit1 aktif iken arama butonuna bastığımda adsoy 'a göre, cursor um edit2 de iken sicil nosuna göre, edit3 te iken tarihe göre arama yapsın. Arama butonuna bastığım zaman aranılacak olan kelimeyi hepsinde aynı inputbox içine gireyim.

[heskin35]

Global bir değişken tanımla mesela.
Sonrasında editlerin onenter eventine değişken için hangi editte olduğuna dair değer ata

Kod: Tümünü seç

var
  Form1: TForm1;
  secim:integer;
implementation

{$R *.dfm}

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  secim:=1;// cursor edit1 içinde ise secim'e 1 ata
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  secim:=2;// cursor edit2 içinde ise secim'e 3 ata
end;

procedure TForm1.Edit3Enter(Sender: TObject);
begin
  secim:=3;// cursor edit3 içinde ise secim'e 3 ata
end;

procedure TForm1.Button1Enter(Sender: TObject);
begin
  showmessage(inttostr(secim));// arama butonunda secimi if  ile kontrol ederek istediğin işlemi yaptır.
end;

gibi mesela.

[lazio]

yanlış bilmiyorsam, sen button a bastığın anda aktif bileşen button olur. doğal olarak hiç bir zaman aktif edit i yakalayamazsız..
bunun yerine global bir değişken tanımlayarak, edit lerin on enter olayında değeri global değer eşitlersin ve buttona basıldığında da arama bu global değişkene göre olsun...

ama dediğim gibi ilk cümlemden emin değilim.. [/code]