Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с диалогами, Выдаёт ошибку и не хочет запускаться =( 
V
    Опции темы
Vrungel
Дата 9.6.2009, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
у меня на форме несколько ДИАЛОГОВ: TPrintDialog; TSaveDialog; TOpenPictureDialog; 
прописал им код, нажал "запустить", а тут выскакивает ошибка    [Ошибка] Unit2.pas(139): Undeclared identifier: 'OpenDialog1'  одна и таже ошибка ко всем диалогам ...

принтдиалог используеться чтобы вывести на печать всё содержимое формы ...
в ч0м проблема??


Код

procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ADOTable1.edit;
(ADOTable1.Fields.FieldByName('Фото') as tblobfield).LoadFromFile(OpenDialog1.FileName);
ADOTable1.Post;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var
i, Start, Stop: Integer;
begin
PrintDialogl.Options := [poPageNums, poSelection];
PrintDialogl.FromPage := 1;
PrintDialogl.ToPage := PageControll.PageCount;
PrintDialogl.MinPage := 1;
PrintDialogl.MaxPage := PageControll.PageCount;
if not PrintDialogl.Execute then exit/-
if PrintDialogl.PrintRange = prAllPages then
begin
Start := PrintDialogl.MinPage - 1;
Stop := PrintDialogl.MaxPage - 1;
end
else //Если выбрано отличное от печати "Все"
if PrintDialogl.PrintRange = prSelection then
begin
Start := PageControll.ActivePagelndex;
Stop := Start;
end
else /Если выбрано отличное от "Выделенный фрагмент"
begin
Start := PrintDialogl.FromPage - 1;
Stop := PrintDialogl.ToPage - 1;
end;
//Начало печати
Printer.BeginDoc;
for i := Start to Stop do
begin
PageControll.Pages[i].PaintTo(Printer.Handle, 10, 10);
if i <> Stop then
Printer.NewPage;
end;
Printer.EndDoc;
end;



Помогите пожалуйсто, завтра здавать курсач, а тут такое  smile 
PM MAIL   Вверх
Riply
Дата 9.6.2009, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 1
Всего: 32
Цитата(Vrungel @  9.6.2009,  17:22 Найти цитируемый пост)
Помогите пожалуйсто, завтра здавать курсач


Здесь, на форуме, есть центр помощи. Обратись туда.


--------------------
Решение задач под заказ
PM MAIL   Вверх
Keeper89
Дата 9.6.2009, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Скорее всего код был откуда-то скопирован, а сами диалоги на форме не размещены.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Vrungel
Дата 9.6.2009, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
конечно скопирован =)) но дело то в том,  как это исправить .... ???
я понять не могу ... в свойствах нужно чтото изменить?? что именно??????
PM MAIL   Вверх
Данкинг
Дата 9.6.2009, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Vrungel @  9.6.2009,  19:09 Найти цитируемый пост)
конечно скопирован =)) но дело то в том,  как это исправить .... ???

Во-первых, надо думать самому, даже когда тупо копируешь чужой код. Во-вторых, кинь на форму нужный  диалог и посмотри, что при этом прописывается в uses...  smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vrungel
Дата 9.6.2009, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
я может и начинающий "программист", но чтобы забыть добавить компонент на форму ... это не про меня =))
все компоненты в USES прописанны ...
PM MAIL   Вверх
Данкинг
Дата 9.6.2009, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
В классе формы диалоги прописаны? Т.е. нечто вроде:

Код

type
  TForm1 = class(TForm)
  OpenDialog1: TOpenDialog;
 end;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vrungel
Дата 9.6.2009, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
да вроде прописанно 
Код
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ExtCtrls, Printers,
  DBCtrls, ADODB, Menus, ExtDlgs;

type
  TForm2 = class(TForm)
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    BitBtn3: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    ADOTable2: TADOTable;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TAutoIncField;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TWideStringField;
    ADOTable1DSDesigner5: TBlobField;
    ADOTable2DSDesigner: TAutoIncField;
    ADOTable2DSDesigner2: TWideStringField;
    ADOTable2DSDesigner3: TWideStringField;
    ADOTable2DSDesigner4: TWideStringField;
    ADOTable2DSDesigner5: TWideStringField;
    ADOTable2DSDesigner6: TBCDField;
    DBImage1: TDBImage;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    PrintDialog1: TPrintDialog;
    SavePictureDialog1: TSavePictureDialog;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    OpenPictureDialog1: TOpenPictureDialog;
PM MAIL   Вверх
Данкинг
Дата 9.6.2009, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Конкретно OpenDialog1 я там не нашёл. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 9.6.2009, 20:11 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Цитата(Vrungel @  9.6.2009,  19:34 Найти цитируемый пост)
я может и начинающий "программист", но чтобы забыть добавить компонент на форму ... это не про меня =))

Без обид, но судя по коду их как раз там нет. Ищите вкладку Dialogs и добавьте на форму нужные диалоги (также как и Данкинг я не нашел диалога открытия файла, собственно как и компилятор smile).

Это сообщение отредактировал(а) Keeper89 - 9.6.2009, 20:18


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Vrungel
Дата 10.6.2009, 07:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
да вся беда в том что они есть на форме =( ...
я случайно удалил OpenDialog, потом поместил по новой на форму и  начались ошибки?

где конкретно нужно прописатьих и как? smile 

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ExtCtrls, Printers,;
  DBCtrls, ADODB, Menus, ExtDlgs;

это разве не диалоги ? smile 
PM MAIL   Вверх
Frees
Дата 10.6.2009, 07:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(Vrungel @  10.6.2009,  09:16 Найти цитируемый пост)
это разве не диалоги ? smile 

это модули в которых описаны эти диалоги 
кигь на форму TOpenDialog и дай ему имя OpenDialog1


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Vrungel
Дата 10.6.2009, 08:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет
С OpenDialog я разобрался ... ЗАРАБОТАЛО =))) я не поянл что я сделал, но терь работает ... 

но вот беда, следующий диалог почамуто не пашет ... на форме он есть!


Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  ___________.jpg 810,97 Kb
PM MAIL   Вверх
Qu1nt
Дата 10.6.2009, 09:08 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50
У тебя на форме - PrintDialog1, а ты пишешь - PrintDialogl.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0611 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.