Frame çağırmak ?

[yazboz]

selamünaleküm

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Unit2, StdCtrls;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Frame2.show; // Çalışmadı neden? bildiri tanımlamamı istiyor ? ne yapmam gerekir . not : fakat Form2 için. çalışıyor

end;

bu yolu denedim :
Form1 Unit penceresinde

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

Frame2: TFrame2; // ekledim program çalışıyor fakat buttona
tıkladığımda hata veriyor ?


bunuda denedim ?
procedure TForm1.Button1Click(Sender: TObject);
var
Frame2 : TFrame2;
begin
Frame2:=TFrame2.Create(Self);
Frame2.show;
end;

[MoSoft]

Form1 e bunu yaz

Kod: Tümünü seç

unit Unit1;

interface

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

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

var
  Form1: TForm1;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
frame2.show;
end;

end.

Form2 ye bunu yaz.

Kod: Tümünü seç

unit Unit2;

interface

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

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

var
  Frame2: TFrame2;

implementation

{$R *.dfm}

end.

[yazboz]

Form1 e bunu yaz

Kod: Tümünü seç

unit Unit1;

interface

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

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

var
  Form1: TForm1;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
frame2.show;
end;

end.

Form2 ye bunu yaz.

Kod: Tümünü seç

unit Unit2;

interface

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

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

var
  Frame2: TFrame2;

implementation

{$R *.dfm}

end.

sayın MoSoft olmadı hata veriyor. yukarıda anlatığım gibi tüm yolları denedim hata veriyor

[yazboz]

Selamunaleyküm

kusura bakmayın. acaba yanlış sorumu sorduk hiç kimse bir cevap vermemiş en azından evet, hayır, olur olmaz, yada bilmiyoruz
diye bir cevap veren olmadı şimdiye kader. 2-3 günün sorusudur