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.
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.
çok teşekkür ederim beni büyük bir dertten kurtardın.yardımların sağol :D
Unit1 icine yazdigimiz fonksiyonlari unit2 icinden nasil cagirabiliriz?