Работа с формами в Delphi

[МарияА]

Начала писать курсовую, и столкнулась с проблемой перехода с одной формы(с помощью нажатия кнопки в первой форме) в другую. Я в этом новичек, поэтому прошу помощи с понятным для меня обьяснением

unit Unit1;

interface


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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure
    Button1Click (Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;
procedure TForm1.Button1Click (Sender: TObject);
begin
if Button1.enabled=true then begin Form2. Visible:=true;
end;

uses Unit2;


{$R *.dfm}

end.

меня выкидывает на строку uses Unit2; и говорит [Fatal Error] Project2.dpr(6): Could not compile used unit 'Unit1.pas'

[type_Oleg]

А зачем 2 раза uses Unit2; - до и после обработчика TForm1.Button1Click?
И почему этот обработчик до {$R *.dfm}, обычно все обработчики - после этого.
И вообще, можно не создавать еще блок uses, а дописать модуль Unit2 в тот, верхний, после Menus

[МарияА]

Та проблема решена, теперь выбывает на строку procedure TForm1.Button1Click (Sender: Tobject); с пояснением [Error] Unit1.pas(27): Undeclared identifier: 'Button1Click'

[Вадим Мошев]

Button1Click

Попробуйте написать так

Button1.Click

Ваш код не читал...

[type_Oleg]

Вот, все работает. Сравнивайте, что не так..

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;
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.Show;
end;
end.

На основной форме - просто 1 кнопка.

[МарияА]

Сообщение от Вадим Мошев

Попробуйте написать так

Button1.Click

Ваш код не читал...

написала, теперь [Error] Unit1.pas(27): Declaration of 'Button1' differs from previous declaration

Сообщение от type_Oleg

Вот, все работает. Сравнивайте, что не так..

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;
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.Show;
end;
end.

На основной форме - просто 1 кнопка.

ой, не сразу заметила, спасибо

вставила ваш код, теперь вот проблема

[type_Oleg]

Сообщение от МарияА

вставила ваш код, теперь вот проблема

Куда вставили ?
Это готовый законченый полный код модуля главной формы. Куда его можно вставить?

Я просто привел пример, типа шаблона приложения, которое делает только одно - при нажатии на кнопку Button1 главной формы открывает вторую форму, совершенно пустую без компонентов.

[JUDAS]

Сообщение от МарияА

написала, теперь [Error] Unit1.pas(27): Declaration of 'Button1' differs from previous declaration
ой, не сразу заметила, спасибо

вставила ваш код, теперь вот проблема

попробуйте заменить его код на этот код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;
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.Show;
end;

initialization
  RegisterClasses([TLabel, TMemo, TButton, TListBox]);
finalization
  UnregisterClasses([TLabel, TMemo, TButton, TListBox]);
end.

[Человек_Борща]

И почему этот обработчик до {$R *.dfm}, обычно все обработчики - после этого.

Не имеет значения где эта директивна относительно до, и после в этом модуле. Линкер подхватит DFM.