Form1 den Form2 ye Editdeki yazıyı göndermek

[The MeLiX]

şöle bişey nasıl olabilir? iki tane form olcak ilk formda bi edit ve buton olcak edite ismi yazınca mesela form2 açılacak form ikide de sadece memo olcak. memo da Merhaba (edite girilen yazı) olcak.. bunu nasıl yapabilirim?

[vedatkaba]

Kod: Tümünü seç

procedure Tform1.Button1onclik(sender:Tobject);
        begin
        form2.memo1.lines.add(form1.edit1.text);
        end;

         

ama form2 oluşturulmuş olması gerek ve imlementationun altındaki uses satırına unit2 eklemen gerekir unit1 için.

[fduman]

Form1'in başına Form2'nin unit adı ne ise ona göre:

Kod: Tümünü seç

uses Unit2;

eklemen gerekir ki Form1, Form2 ye ulaşabilsin.

Form1'in butonunun onclick event'ine:

Kod: Tümünü seç

with TForm2.Create(Self) do   // Form2 Owner'ı Form1 olacak şekilde
                                                     // yaratılır.
try     // Hata oluşursa!!!
  Memo1.Clear;  // Form2 deki Memo içeriği silinir.
  Memo1.Lines.Append(Self.Edit1.Text);  // Form1'deki Edit1 içeriği 
                                                          // Form2'deki Memo'ya yazılır.
  ShowModal;                                      // Form2 modal olarak gösterilir.
finally  // try/finally arasında hata oluşsa bile Free kodunu çalıştır.
  Free;                                               // Form2 bellekten atılır.
end;

Yazdığında istediğin şey gerçekleşecektir. (Kodda kullanılan Self değeri Form1'in bellekteki adresini yani Form1 i niteler.)

[The MeLiX]

bunu yapınca alt satırda yazıyo.. Memo da Yazınız=(Editdengelen yazı) şeklinde nasıl yapabilirim?

[vedatkaba]

Kod: Tümünü seç

insert(satirno,satir)

add verilen satırı sona ekliyordu,araya eklemek için insert,

Kod: Tümünü seç

[The MeLiX]

Yardımlarınız İçin Saolun Kendimde Yaptım Zaten..

Kod: Tümünü seç

Memo1.Lines.Add('Yazılan Yazı='+Edit1.Text);