Butonun tıklandığını nereden anlayabiliriz

[dtgb]

Merhabalar arkadaşlar,
Butonun tıklandığını nereden anlayabilirim buton tıklandığında bi değer dönüşü varmı acaba
yapmak istediğim şu

if ((buton1 tıklandıysa ) veya( buton2 tıklandıysa)) then
begin
// şu işlemleri gerçekleştir...
end;

bu işlemi nasıl yapabilirim

[qamyoncu]

çok kullanışlı bi yöntem deil ancak, global bir değişken tanımlarsın.. button1onClick yordamında o değişkene '1' değerini atarken button2onclick yordamında '2' değerini atarsın ve döngüde bunu sorgularsan istediğine ulaşmış olursun:)

tekrar ediyorum kullanışlı bir yöntem deil..

ve... güzel bir örnek.. işine yarıyacağını umuyorum.

http://www.delphi3000.com/articles/article_2490.asp?SK=

koLay geLsin. .

[ZeynelAbidin]

ben bir formda bulunan 2 farklı butonla tek bir bir formu çağırdım ve sonuç için hangi butona tıklandığını bulmak için tıkladığım butonun captionunu değiştirirek dönüşün eğer captiounu şu ise buna tıklanmıştır dedim ve böyle bir çözüm buldum.

[unicorn64]

button_click eventindeki sender parametresini kullanabilirsiniz

Kod: Tümünü seç

procedure frmMAIN.Buton_click(sender:Tobject)
var
 basilan:Tbutton;
begin
  basilan:=sender as Tbutton;
  if basilan.name='btn1' then
  begin
  end;
end;

[aslangeri]

s.a.
Asıl amacını söylersen ona göre çözüm üretelim.

[LifeTime]

Çok daha pratik ve basit (bence) bir yöntemde şu;

Forma koyduğun buton, Button1 olsun. Bunun Event'ının OnClick alanına çift tıklarsan, Delphi ototmatik olarak aşağıdaki procedure'ü oluşturur. Bunun içine de istediğim kontrolü yada işlemi koyabilirsin. Çünki bu Button1 tıklandığı anda bu proc çalışacaktır.

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Basılan "Button1"');
end;

[qamyoncu]

Çok daha pratik ve basit (bence) bir yöntemde şu;

Forma koyduğun buton, Button1 olsun. Bunun Event'ının OnClick alanına çift tıklarsan, Delphi ototmatik olarak aşağıdaki procedure'ü oluşturur. Bunun içine de istediğim kontrolü yada işlemi koyabilirsin. Çünki bu Button1 tıklandığı anda bu proc çalışacaktır.

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Basılan "Button1"');
end;

yapmak istediğinin bu olduğunu sanmıyorum..
Ama anlamışda değilim
aslangeri'ye katılarak daha açık ifade edersen seviniriz..

[dtgb]

bunu yapmak istemekteki amacım şudur
ekle
kaydet
düzelt
değişikliği kaydet
iptal

gibi butonlarım mevcut açılışta yada butonların tıklanmasına göre bazı butonların enable olayı true bazılarınınki false olacak tüm bunları herbir butonun altına yazmaktansa tekbir procedure altında yapılacakları toplamak istiyorum.

[aslangeri]

s.a.
buttonların tag özelliği var.
click olayında

Kod: Tümünü seç

(sender as tbutton).tag

diyerek hangi buttonun basıldığını anlayabilirsin.

[akdatilla]

bir butona string ifade ile ulaşıp özelliğini değiştirmek için:

Kod: Tümünü seç

procedure TForm1.BtnEnable(bn:string);
var
    b:TComponent;
begin
      b:=FindComponent(bn);
     if b<>nil then
        (b as TButton).Enabled:=True;
end;

Bir butona basıldığında özelliğini alabilmek için:

Kod: Tümünü seç

procedure TForm1.ButtonxClick(sender:tobject);
begin
   if (sender is TButton) then
   with (sender as TButton) do
   begin
       if Caption='Ekle' then
       Begin
            EkleProc;
            Caption:='Sil';
       end else
       if Caption='Sil' Then
       Begin
            silproc;
            Caption:='Ekle';
       end;
   end;
end;

[conari]

bunu yapmak istemekteki amacım şudur
ekle
kaydet
düzelt
değişikliği kaydet
iptal

gibi butonlarım mevcut açılışta yada butonların tıklanmasına göre bazı butonların enable olayı true bazılarınınki false olacak tüm bunları herbir butonun altına yazmaktansa tekbir procedure altında yapılacakları toplamak istiyorum.

Kaydet ile değişikliği kaydet arasında ki fark ne?

Bunları vt nin moduna göre ayarlayabilirsin.
işte Edit modda ise Kaydet vazgeç active olsun yeni olmasın gibi.

[dtgb]

Aslında kaydet ile değkaydet isleminin aynı olması doğru olan yol ,
fakat bazen yeni kayıt işlemlerinde default olarak eklenmesini istediğiniz değerler olabiliyor
bu durumda iki ayrı kaydet islemi gerekiyor değkaydet isleminde hesaplama yapmak durumundaydım.

[conari]

fakat bazen yeni kayıt işlemlerinde default olarak eklenmesini istediğiniz değerler olabiliyor

default değerleri vt den ayarlayabilirsiniz.

Kod: Tümünü seç

create table stok(
[KOD] [varchar](8) NOT NULL,
[ISKONTO1] [smallint]  DEFAULT (0)
...................)

[csunguray]

Hemen bütün örneklerde Caption lar veya Name ler karşılaştırılmış. Halbuki doğrudan

Kod: Tümünü seç

if Sender=BtnKaydet then
begin
  bla bla
  bla bla
  if ADOQuery1.State = dsEdit then bla bla;
  if ADOQuery1.State = dsInsert then bla bla;
end;

deme şansımız var.