formlar arası bağlantı

[raltundal]

iyi çalışmalar arkadaşlar bir yerde takıldım kaldım delphide de yeniyim bu arada form1 de listbox1 var ve ben form2 deki edit1.text in içine yazdıklarımı bir buton yardımıyla listbox1 e yazdırmak istiyorum ama yapamadım form1 ve form2 bağımsız görünüyor ve bir birlerinin içeriklerindeki eklentileri görmüyor lar bu soruna nasıl bir çözüm bula bilirim.

[PhD]

Selam arkadaşım,

Aramıza hoşgeldin. Sorunun için şöyle yardım etmeye çalışayım...

Bu Form1 olsun ve Unit1 olarak kayıtlı olsun.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

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

end.

Buda Form2 olsun ve Unit2 olarak kayıtlı olsun.

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
 Form1.Label1.Caption:=Edit1.Text;
end;

end.

Burada {$R *.dfm} ifadesinden sonra

Unit1 için uses unit2;
Unit2 için uses unit1; ifadelerini kullanmalısın. Böylece formlar birbirini görmeye başlar.

Ayrıca Form2deki bir komponetle Form1de işlem yapmak istiyorsan başına o formun ismini yazmalısın. Örneğin Form2 de Edit1 olsun bunu Form1 deki Label1 in içine atamak istiyorsun o zaman form2 deki butona şunu yazmalısın;

form1.label1.caption:=edit1.text;

Yukarıdaki verdiğim kodlar bu işi yapıyor. İnşallah kafanı karıştırmamışımdır.

Kolay gelsin.

[raltundal]

çok teşekkür ederim beni büyük bir dertten kurtardın.yardımların sağol  

[z]

Unit1 icine yazdigimiz fonksiyonlari unit2 icinden nasil cagirabiliriz?