ассоциация файла

[ВалекFCRK]

Вот так ассоциирую формат в реестр

var s:string;
begin
  Reg:=TRegistry.Create; 
  Reg.RootKey := HKEY_CLASSES_ROOT; 

  Reg.OpenKey('.recept\OpenWithProgids\', true);
  Reg.WriteString('CookBook.recept', '');

  Reg.OpenKey('\CookBook.recept\DefaultIcon\', true);
  s:=Application.ExeName+',0';
  Reg.WriteString('', s);

  Reg.OpenKey('\CookBook.recept\Shell\Open\', true);
  Reg.WriteString('', 'Îòêðûòü â CookBook');

  Reg.OpenKey('command\', true);
  s:='"'+Application.ExeName+'" "%1"';
  Reg.WriteString('', s);

  Reg.Free;

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

Вот так передаю текст файла при ассоциации в мемо на главной форме. Все работает классно.

procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount <> 0 then
begin



 form1.Memo1.Lines.LoadFromFile(ParamStr(1));
end;

Но дело в том что мне нужно не на главной форме его открывать а на другой.


Пишу вот так:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount <> 0 then
begin


 
 seturn.spisok.Lines.LoadFromFile(ParamStr(1));
seturn.show;
end;

При компиляции ошибок не выдает, но при открытие файла своего формата вылезает:

Access violation at address 0045051E in module 'Project.exe'. Read of address 000002F4


Пытался разобраться в чем дело. Вобщем делал так:

procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount <> 0 then
begin


 
 Form1.Memo1.Lines.LoadFromFile(ParamStr(1));
seturn.show;
end;

При таком коде файл открывается в главной фформе. Но все равно вылезает таже ошибка и форма seturn не открывается.

Пытался пробовать открывать другие формы, тоже не получалось.
Когда я просто убираю это строку seturn.show; то все открывается без ошибок. Но опятьже на главной форме.



Помогите.

[Аватар]

А форма seturn создана к моменту обращения к ней?

[ВалекFCRK]

Сообщение от Аватар

А форма seturn создана к моменту обращения к ней?

Да. Она не во время компиляции создается у меня.

[ВалекFCRK]

Сообщение от Аватар

А форма seturn создана к моменту обращения к ней?

Я пробовал другие формы открывать внутри этой же процедуры. не получалось

[phomm]

Сообщение от ВалекFCRK

Да. Она не во время компиляции создается у меня.

Нет ! в формкреэйте главной формы (которая создается первой, и, скорее всего, что form1 это главная форма) ещё не созданы другие формы, меняйте событие в котором пишите этот код, с oncreate на onactivate или onshow