Sender Problemi

[modigant]

Merhaba arkadaşlar,

Çalıştığım Projede Ürün bul diye bir form var. Fakat ben bu formu çoklu kullanmak istiyorum. Yani anlatmak istediğim bazı formlarda ihtiyaç olduğunda çağırmam gerekiyor. Örneğin stokgirme de ve stoktan çıkmada. Bu olayın hangi formda gerçekleştiğini ürünbul formu nasıl anlar. Sendere ne yazmam gerekiyor. Yada tam bir kod olarak yazabilirmisiniz. Şimdiden teşekkürler.

Örneğin;

procedure Turunbul.DBGrid1DblClick(Sender: TObject);

begin
if Sender=stokgir.(????) then
begin
stokgir.Edit1.Text:=DBGrid1.Fields[0].Text;;
urunbul.Close;
stokgir.Edit2.SetFocus;
end;
if Sender=stokcik.(???) then
stokgir.Edit1.Text:=DBGrid1.Fields[0].Text;;
urunbul.Close;
stokcik.Edit2.SetFocus;
end;

stokgir ve stokcik ayri formlar

[modigant]

Sorunu şöyle çözdüm. Sizce mantıklı mı?

Bu stokgir ve stokcik diye belirttiğim formlar eş zamanlı çalışamıyorlar. Bende ürünbul formunun ürettiği değeri her iki formada gönderiyorum. Ve Formların on activate olaylarında edit kutularını temizliyorum. Doğru bir mantıkmıdır. İlerde bunun yüzünden bir problemle karşılaşabilirmiyim ??

[F.Atagun]

viewtopic.php?f=2&t=22641