MilankaМудрец (18199)
15 лет назад
unit Unit1Frage1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1Frage1 = class(TForm)
Button1Frage1: TButton;
RadioGroup1Frage1: TRadioGroup;
Label1Frage1: TLabel;
Label2Frage1: TLabel;
Button2Frage1: TButton;
Button3Frage1: TButton;
Panel1Frage1: TPanel;
procedure RadioGroup1Frage1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Frage1Click(Sender: TObject);
procedure Button2Frage1Click(Sender: TObject);
procedure Button3Frage1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1Frage1: TForm1Frage1;
implementation
{$R *.dfm}
Tyt drygie procedures i potom....
procedure TForm1.ButtonNextClick(Sender: TObject);
begin
form1.close;
Form2.show;
end;
edinstvennaja oshibka 4to ne moshet naiti... Form2 :-(
я хочу чтобы при нажатии на кнопку "дальше" открывался другой
проект.
я уже вставила в
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
procedure TForm1.ButtonNextClick(Sender: TObject);
begin
form1.close;
Form2.show;
end;
конечно второй проект я скинула в папку с первым, но программа пишет что не находит Form2
наверно я что то ещё не сделала кто разбирается помогите пожалуйста
мне посоветовали ввести array [const] в самом начале, но я не представляю как... если у кого есть идеи, напишите пожалуйста точные формулы...зараннее спасибо