Formlar arasında veri aktarımı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
denizkusu
Üye
Mesajlar: 5
Kayıt: 02 Oca 2008 05:05

Formlar arasında veri aktarımı

Mesaj gönderen 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...
Kullanıcı avatarı
barutali
Üye
Mesajlar: 297
Kayıt: 02 Tem 2007 02:30

Re: Formlar arasında veri aktarımı

Mesaj gönderen barutali »

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

Kod: Tümünü seç

FORM2.DEGISKENIN := 'ALİ VELİ KONYA';
gibi kullanabilirsin ..
amatör küme programcı :D
denizkusu
Üye
Mesajlar: 5
Kayıt: 02 Oca 2008 05:05

Re: Formlar arasında veri aktarımı

Mesaj gönderen 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
Kullanıcı avatarı
barutali
Üye
Mesajlar: 297
Kayıt: 02 Tem 2007 02:30

Re: Formlar arasında veri aktarımı

Mesaj gönderen 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 ...
amatör küme programcı :D
denizkusu
Üye
Mesajlar: 5
Kayıt: 02 Oca 2008 05:05

Re: Formlar arasında veri aktarımı

Mesaj gönderen 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
Cevapla