![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Код:
unit F_Titul;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, F_Menu;
type
TForm1 = class(TForm)
lbl1: TLabel;
img1: TImage;
btn1: TBitBtn;
btn2: TBitBtn;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
U_Menu.ShowModal;
end;
end.Последний раз редактировалось Admin, 09.09.2013 в 09:14. |
|
#2
|
||||
|
||||
|
удали отсутствующие модули из uses и обращение к несуществующим объектам.
|
|
#3
|
|||
|
|||
|
все что есть в uses само вышло, не знаю даже что лишнее(
|
|
#4
|
||||
|
||||
|
дык а что за ошибка то?
|
|
#5
|
||||
|
||||
|
Предположу, что изначально модуль F_Menu имел имя Unit2. Старое подключение не убрали, а новое добавили - вот и конфликты.
|