[demar]

Подскажите пожалуйста открытие определенных файлов родительской программой (не MDI).

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
//      if (Open file in FileBrowser is = '*.gbt') then
//      begin
//              ...
//      Exit;
//      end
//      else

            OpenDialog1Click(Sender);

end;

Админ: Пользуемся тегами для оформления кода!

[Alegun]

Юзайте ParamStr в OnShow

[lmikle]

Код:

if OpenDialog1.Execute Then
  If MatchesMask(OpenDialog1.FileName,'*.gbt') Then
     LoadDataFromTheFile(OpenDialog1.FileName);