Formlar arasında veri aktarımı

[denizkusu]

Basit bir iş takip programı yazmaya çalışıyorum size göre belki çok basit gelecek bir konuda sıkıntı yaşamaktayım sorunum şu; Yazmaya çalıştığım programda birkaçtane form var (Form1, Form2, Form3) bunlardan Form1'i açılış sayfası olarak kullanıyorum Unit1 'de Uses'in altına Unit2, Unit3 yazdığımda herhangi bir Button'un Click olayına Form2.Show; veya Form3.Show; yazarak istenilen formu açabiliyorum ama ben örneğin ikinci forma bazı veriler göndererek açmak istiyorum Örneğin databasede işlemesini istediğim verinin ID veya direk verileri çekip tamamını değişkenlerde göndermek istiyorum bunu nasıl yapabilirim yardımcı olursanız sevinirim....


Saygılarımla...

[barutali]

PUBLIC altında değişkenini tanımlayabilirsin ...daha sonrada

Kod: Tümünü seç

FORM2.DEGISKENIN := 'ALİ VELİ KONYA';

gibi kullanabilirsin ..

[denizkusu]

İlginiz için çok teşekkür ederim söylemiş olduğunuz tavsiyeyi denedim fakat istediğim işi karşılamadı.
Şu şekilde düşünün elimde iki formlu bir proje var birinci formda bir adet edit ve buton var. ikinci formda sadece bir adet label var. birinci formda edite yazı yazıp butona tıkladığımda ikinci form açılşsın ve o labelde editteki yazı yazılsın istiyorum.
sizin söylediğiniz yöndetmle bun yapamam çünkü eğer Unit1 i Unit2 de tanımlarsam form1 de nasıl form2 yi çalıştıracağım ?
belkide ben yanlış yapıyorum. onun için kodlarımı yzayım

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.

Kod: Tümünü seç

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

umarım söylemek istediğimi düzgün bir şekilde ifade edebilmişimdir.


Saygılarımla

[barutali]

Kod: Tümünü seç

 
Form2.show;
Form2.label1.caption := edit1.text;
FORMADI | NESNE | NESNEOZELLIGI | := | ALACAGIN OZELLIGE BAGLI NESNE | OZELLIGI  

yada Form2 nin onCreate olayına yada onShow olayına aşağıdaki kodu da yazarak tam tersiniz yapabilirsin ..

Kod: Tümünü seç

 label1.caption := Form1.edit1.text;

ikiside aynı kapıya çıkıyor hangisini kullanmak istersen artık ...

[denizkusu]

pardon hocam ya kafam nasıl bulandıysa söylediğini anlayamamışım bile çok teşekkür ediyorum yardımın ziyadesi ile işimi gördü



Saygılarımla