Ошибка "Acess violation" и с чем её есть?

[Alex Cones]

В проекте 2 формы. работал с одной проблем не было. писал Form1.hide, Form2.show, проблем не было. Подключил рес и длл, все нормально. Как только написал процедуру во второй форме появилось это:

1.jpg


И тычет мне красным маркером в последний end в Project.dpr

[mihali4]

Неверное обращение к процедуре из другой юниты. Покажите, как вы из одной юниты вызываете процедуру из другой...
Еще лучше - листинг обеих юнит (или хотя бы те куски, которые "общаются" между собой)...

[Alex Cones]

dpr:

program PROJECT;

uses
  Forms,
  UNITMenu in 'UNITMenu.pas' {FRMMenu},
  UNITIntr in 'UNITIntr.pas' {FRMIntr};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFRMIntr, FRMIntr);
  Application.Run;
end.

Кусок в FRMIntr:

 FRMIntr.Hide;
       FRMIntr.TMRIntr.Enabled:= FALSE;
       FRMMenu.Show;

И

uses UNITMenu;

А это собственно FRMMenu:

unit UNITMenu;

interface

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

type
  TFRMMenu = class(TForm)
    PNLMM: TPanel;
    PNLEG: TPanel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMMenu: TFRMMenu;

implementation

{$R *.dfm}
{$R Resource\MRES.res}

Procedure DrawEGMenu;
 Var
  EGNoButton,EGYesButton:TBitMap;
 begin
  EGNoButton:=TBitMap.Create;
  EGYesButton:=TBitMap.Create;
  EGNoButton.LoadFromResourceName(HInstance,'EG001');
  EGYesButton.LoadFromResourceName(HInstance,'EG001');
  EGNoButton.Free;
  EGYesButton.Free;
 End;


procedure TFRMMenu.FormShow(Sender: TObject);
begin
 DrawEGMenu;
end;

end.

Та вставка в FRMIntr - единственный мостик, что их связывает.

[mihali4]

Application.Initialize;
Application.CreateForm(TFRMIntr, FRMIntr);
Application.Run;

А у вас где-нибудь присутствует строка с TFRMMenu.Create ?
Например, в юните UNITIntr.pas...
А то получается, что вы к ней (FRMMenu) обращаетесь, а она еще не создана...

[Alex Cones]

Точно нету! Щас попробую вписать.

А кого писать в Owner`e?

Все, нашел, нужно было вписать Application.CreateForm(TFRMMenu, FRMMenu);