Farklı butonlardan komut gönderme ve alma

[brs]

İyi Akşamlar,

Normal şartlarda olayı label kullanarak çözebilirdim, fakat label veya başka bileşen kullanmadan başka nasıl yapabilirim konusunu çözemediğimden bir üstadın yardımı olursa sevinirim...

Buton1 tıklandığında cevap: stringe komut veya metin gidecek buton2 ye tıkladığımda komut veya metni nasıl alabilirim???


Örnek Uygulama:

Kod: Tümünü seç

implementation

{$R *.dfm}

uses Test;

var
Cevap: String;

Komut gönderen:

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject);
begin
Cevap:='Deneme';
end;

Komutu alan:

Kod: Tümünü seç

procedure TForm3.Button2Click(Sender: TObject);
begin
Caption:=Cevap;
end;

[probis]

Cevabı zaten yazmışsınız.Buton1 cevap değişkenine değer atıyor. Buton2 de cevap değişkenini Form başlığına atıyor.
Yoksa farklı birşey mi anlatmak istediniz ?

[mia]

Cevap << this variable can be public variable or global var

[brs]

Cevabı zaten yazmışsınız.Buton1 cevap değişkenine değer atıyor. Buton2 de cevap değişkenini Form başlığına atıyor.
Yoksa farklı birşey mi anlatmak istediniz ?

Uygulamada çalıştıramadım

[brs]

Cevap << this variable can be public variable or global var

Can you share examples?

[probis]

Cevabı zaten yazmışsınız.Buton1 cevap değişkenine değer atıyor. Buton2 de cevap değişkenini Form başlığına atıyor.
Yoksa farklı birşey mi anlatmak istediniz ?

Uygulamada çalıştıramadım

Ben de çalıştı. Ne gibi bir hata alıyorsunuz ?

[mia]

ok lets assume that test is other form and you want to use a variable that pass its instance to other forms if i understand right from google translate and from the code you usually store your variable as public variable or global variable as example main form set some var to be used in any other form

Kod: Tümünü seç

type
  Tmain1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
cevap : string; // a public variable if you dont like to store it as public variable do in global like below
  end;

var
  main1: Tmain1 ;
aglobalvariabename : string;

implementation

{$R *.dfm}
//store variable string here when button click event or what ever as example 
procedure TForm3.Button1Click(Sender: TObject);
begin
Cevap:='Deneme';
end;

//so you can call this variable string result  in any other form like  , main1.cevap;
end.

[brs]

Hatayı anlayamadım, ama tekrar tekrar yapınca çözdüm gereksiz bir konu açmış oldum kusura bakmayın...

Kod: Tümünü seç

implementation

{$R *.dfm}

var
  Cevap: String;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Cevap := 'Deneme';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Showmessage(Cevap);
end;

[brs]

ok lets assume that test is other form and you want to use a variable that pass its instance to other forms if i understand right from google translate and from the code you usually store your variable as public variable or global variable as example main form set some var to be used in any other form

Kod: Tümünü seç

type
  Tmain1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
cevap : string; // a public variable if you dont like to store it as public variable do in global like below
  end;

var
  main1: TForm1;
aglobalvariabename : string;

implementation

{$R *.dfm}
//store variable string here when button click event or what ever as example 
procedure TForm3.Button1Click(Sender: TObject);
begin
Cevap:='Deneme';
end;

//so you can call this variable string result  in any other form like  , main1.cevap;
end.

Thanks

[mia]

you are welcome abi

[brs]

İşlem yapıldıkça ihtiyaçlar ortaya çıkıyor, aynı uygulamayı başka bir forma nasıl gönderebilirim form2 den form1 gibi...

[esistem]

Selam,
Global variant tanımlamanızı implementation satırının üstünde tanımlarsanız bütün dertlerinize deva olur. Farklı formlar arasında ise başka herhangi birşey yapmanıza gerek yoktur. Yalnız Form1 de iken buton basıldığında Form1 deki cevap değişkenine değeri atayın, Form2 yi açtığınızda butona bastığınızda label.caption := cevap yazmanız yeterli olacaktır. Tabi bu arada Form2 de uses satırında Form1 in unitini çağırmayı unutmayın.

[mrmarman]

you are welcome abi

well done.