Проблемы с Run

Страницы: «1» «2» «3» «4» «5» «6»

Если все првильно сделала, то тут http://zalil.ru/30406942

Замените в вашем файле Project1.dpr все содержание на такое:

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {glavnaya},
  Unit2 in 'Unit2.pas' {fotogalereya},
  Unit3 in 'Unit3.pas' {klienti},
  Unit5 in 'Unit5.pas' {dokumenti};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(Tglavnaya, glavnaya);
  Application.CreateForm(Tfotogalereya, fotogalereya);
  Application.CreateForm(Tklienti, klienti);
  Application.CreateForm(Tdokumenti, dokumenti);
  Application.Run;
 
end.

Также советую изменить код главной формы на такой:

uses Unit2, Unit3, Unit5;
 
 
{$R *.dfm}
 
procedure Tglavnaya.klientiClick(Sender: TObject);
begin
Unit3.klienti.Show;
end;
 
procedure Tglavnaya.fotoClick(Sender: TObject);
begin
 Unit2.fotogalereya.Show;
end;
 
procedure Tglavnaya.dokumentiClick(Sender: TObject);
begin
 Unit5.dokumenti.Show;    
end;

Тоесть слово uses указывается один раз. А к формам обращаетесь через их юнит. У меня все три формы открываются после замены кода на такой.

И кстати, гдето там readln записан, удалите его, ето не тот случай, когда он помагает

Ура-а! Работает!! Огромное спасибо!

Теперь насчет работы кнопки (Нажимаем - переходим к прорамме построения чертежа)
Ты написал:
Ну для открытия программы смотрим
ShellExecute(0, 'open', pchar('app.exe'), nil, nil, SW_NORMAL);(незабудь в Uses вписать shellapi).
Документы откривать можно также.
Программа ругается на Shellapi

Цитата (n10hsa):

Сколько раз можно повторять - УКАЗЫВАЙТЕ ТЕКСТ ОШИБКИ!!!
Тут телепатов нет, угадать, что за ошибка, никто не сможет.

Смотри так ли в тебя:

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ShellAPI;

Если не так - исправляй

Shellapi зарботал,
НО
ShellExecute(0, 'open', pchar('sbpotolok.exe'), nil, nil, SW_NORMAL); на кнопку нажимаем - и ничего не происходит

Цитата (n10hsa):

ShellExecute() - это функция. Она возвращает число, по которому можно судить, о её результатах, а также узнать причину неудачной отработки.
Какой код она возвращает в твоём случае?

Сделай так:

procedure Tglavnaya.chertegClick(Sender: TObject);
VAR res:Cardinal;
begin
res:=ShellExecute(0, 'open', pchar('sbpotolok.exe'), nil, nil, SW_NORMAL);
Caption:=IntToStr(Res);
end;

Теперь запусти программу и нажми на кнопку. Смотри какое число в заголовке программы? 2?