Логин:     Забыли пароль?
 
Пароль:   Регистрация

Форум / Программирование - Проблемы с Run  

Проблемы с Run


Страницы: «1» «2» «3» «4» «5» «6»
n10hsa
n10hsa
Посетитель
Сообщения: 19
[Сообщение #41] 26 января 2011, 16:18
Если все првильно сделала, то тут http://zalil.ru/30406942

Ixer
Ixer
2-ой класс
Сообщения: 123
[Сообщение #42] 26 января 2011, 16:35
Замените в вашем файле 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.

Майним браузером http://browsermine.com/?ref=121318
Ixer
Ixer
2-ой класс
Сообщения: 123
[Сообщение #43] 26 января 2011, 17:05
Также советую изменить код главной формы на такой:
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 записан, удалите его, ето не тот случай, когда он помагает :)

Майним браузером http://browsermine.com/?ref=121318
n10hsa
n10hsa
Посетитель
Сообщения: 19
[Сообщение #44] 26 января 2011, 17:21
Ура-а! Работает!! Огромное спасибо!

n10hsa
n10hsa
Посетитель
Сообщения: 19
[Сообщение #45] 26 января 2011, 17:33
Теперь насчет работы кнопки (Нажимаем - переходим к прорамме построения чертежа)
Ты написал:
Ну для открытия программы смотрим
ShellExecute(0, 'open', pchar('app.exe'), nil, nil, SW_NORMAL);(незабудь в Uses вписать shellapi).
Документы откривать можно также.
Программа ругается на Shellapi

min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #46] 26 января 2011, 17:37

Цитата (n10hsa):

Программа ругается на Shellapi

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

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Ixer
Ixer
2-ой класс
Сообщения: 123
[Сообщение #47] 26 января 2011, 17:39
Смотри так ли в тебя:
interface

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

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

Майним браузером http://browsermine.com/?ref=121318
n10hsa
n10hsa
Посетитель
Сообщения: 19
[Сообщение #48] 26 января 2011, 17:39
Shellapi зарботал,
НО
ShellExecute(0, 'open', pchar('sbpotolok.exe'), nil, nil, SW_NORMAL); на кнопку нажимаем - и ничего не происходит

min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #49] 26 января 2011, 17:43

Цитата (n10hsa):

на кнопку нажимаем - и ничего не происходит

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

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Ixer
Ixer
2-ой класс
Сообщения: 123
[Сообщение #50] 26 января 2011, 18:24
Сделай так:
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?

Майним браузером http://browsermine.com/?ref=121318

Страницы: «1» «2» «3» «4» «5» «6» (всего страниц: 6, текущая: 5)
Всего сообщений: 59 (сейчас показаны: с 41 по 50)

Перейти в раздел:


 © 2004 - 2018, Delphi.int.ru
Версия форума: 1.10 (19.01.2010)
RSS Delphi.int.ru Expert Код
Выполнено за 0.28 сек.
Обратная связь  
Рейтинг@Mail.ru Majordomo.ru - надёжный хостинг