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???
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 ?
probis yazdı: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
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
probis yazdı: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 ?
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
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.
En son mia tarafından 15 May 2015 10:37 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ in god i trust with every movement i do graduated student and looking for knowledge
implementation
{$R *.dfm}
var
Cevap: String;
procedure TForm1.Button1Click(Sender: TObject);
begin
Cevap := 'Deneme';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Showmessage(Cevap);
end;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
mia yazdı: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
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
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
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.