a fornundan b formuna nasıl bilgi gönderebilirim

[sistem02]

S.A.

a formunda arayıp bulduğum müşteri bilgilerini b formuna nasıl gönderebilirim.

[sistem02]

delphi 6 ve Fb kullanıyorum

[lazio]

b formunun public kısmına değişkenlerini tanımla.
a formunda da uses kısmına b formunun unit ismini yaz.
a formunda unitb.degisken := deger; şeklinde erişebilirsin
tabi bu durumda b formu create edilmiş olmalı..

[undefined]

@Lazio hocam klavye sürçmesi oldu galiba,
uses'ın var kısmına yazarsan unitx.y şeklinde ulaşabilirsin. Form'un class'ına yazarsan, unitx.formz.y şeklinde ulaşaiblirsin.

Ama senin sorunun daha başka bir şekilde çözülecek gibi. Bilgileri a formunda nasıl çektiğini ve b formunda nasıl kullandığının detayını yaz istersen. Daha farklı bir çözüm düşünelim.

[sistem02]

a formunda müşteriler arasından istediğim müşteriyi bulup bu müşteriye satış yapmak üzere b formuna bu müşterinin bilgilerini göndermek istiyorum

[lazio]

@Lazio hocam klavye sürçmesi oldu galiba,
uses'ın var kısmına yazarsan unitx.y şeklinde ulaşabilirsin. Form'un class'ına yazarsan, unitx.formz.y şeklinde ulaşaiblirsin.

Ama senin sorunun daha başka bir şekilde çözülecek gibi. Bilgileri a formunda nasıl çektiğini ve b formunda nasıl kullandığının detayını yaz istersen. Daha farklı bir çözüm düşünelim.

@undefined hala klavye sürçmesini nerde yaptığımı fark edemedim

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, unit2;  // unit2 yi ekle

type
  TForm1 = class(TForm)
    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.x := 'ali';  // unit2 ye değeri gönder
  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)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    x : String;  // değişken(ler)
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage(x);
end;

end.

Ben bundan bahsetmiştim..

[sistem02]

işin mantığını anladım. allah razı olsun
teşekkürler

[undefined]

Hocam çok önemli bişi değil zaten.
Form.degisken yerine unitb.degisken yazmışın.

a formunda da uses kısmına b formunun unit ismini yaz.
a formunda *unitb.degisken := deger; şeklinde erişebilirsin