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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проперти закрытия окна 
:(
    Опции темы
kosta
Дата 10.5.2005, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
не подскажите в чем может быть дело?
создаю просто событие формы онклоуз а он мне выдает ошибку, мол не совпадает с предыдущим описание, причем описание абсолютно идентичное. Причем так не везде, а только на некоторых формах, но логику понять не могу=((
PM MAIL   Вверх
Alex103
Дата 10.5.2005, 01:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет
Цитата(kosta @ 10.5.2005, 01:02)
не подскажите в чем может быть дело?
создаю просто событие формы онклоуз а он мне выдает ошибку, мол не совпадает с предыдущим описание, причем описание абсолютно идентичное. Причем так не везде, а только на некоторых формах, но логику понять не могу=((

Ты случайно не КОL форму создаешь!


--------------------
Мой адресс не дом и не улица, мой адресс WWW
PM MAIL WWW ICQ YIM   Вверх
kosta
Дата 10.5.2005, 01:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
нет, самая обычная форма
PM MAIL   Вверх
Yanis
Дата 10.5.2005, 01:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Ошибка в 17й строке.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
kosta
Дата 10.5.2005, 01:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Yanis не понял ... smile
PM MAIL   Вверх
Yanis
Дата 10.5.2005, 02:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(kosta @ 10.5.2005, 01:52)
Yanis не понял ...

Разъяснения тут


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
kosta
Дата 10.5.2005, 02:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
пожалуйста, вот пример исходника(все левые процедуры шоб не загромождать исходник изъял, главное ето формклоуз):

Код


unit Bilet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ComCtrls, Menus;

type
  TfrmBilet = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    btnAdd: TButton;
    qrTasks: TQuery;
    dsDR3: TDataSource;
    edtKolvoVoprosov: TEdit;
    btnExit: TButton;
    cbTheme: TComboBox;
    udKolvoVoprosov: TUpDown;
    MainMenu1: TMainMenu;
    mmSerie: TMenuItem;
    mmBilet: TMenuItem;
    mmBiletNew: TMenuItem;
    mmSerieNew: TMenuItem;
    mmSeriePrint: TMenuItem;
    mmBiletPrint: TMenuItem;
    memoTask: TMemo;
    mmSerieStatistic: TMenuItem;
    mmBiletSave: TMenuItem;
    dsDR4: TDataSource;
    qrAnswer: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure mmBiletNewClick(Sender: TObject);
    procedure mmBiletPrintClick(Sender: TObject);
    procedure mmBiletSaveClick(Sender: TObject);
    procedure mmSerieNewClick(Sender: TObject);
    procedure mmSeriePrintClick(Sender: TObject);
    procedure mmSerieStatisticClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBilet: TfrmBilet;

implementation
Uses QForms,ComObj,Start,BiletDiscipline, Statistic;

...


procedure TfrmBilet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if qrTasks.active then qrTasks.close;
memoTask.Clear;
edtKolvoVoprosov.Text:='';
cbTheme.clear;

biletCount:=0;
SetLength(BiletSerie,BiletCount);
SetLength(currentBilet,0);

SerieStat.BiletNumber:=0;
setlength(SerieStat.Disciplines[0].Themes,0);
setlength(SerieStat.Disciplines,0);

frmBiletDiscipline.Enabled:=true;
end;

end.
PM MAIL   Вверх
Yanis
Дата 10.5.2005, 02:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(kosta @ 10.5.2005, 01:02)
а он мне выдает ошибку, мол не совпадает с предыдущим описание

Ошибка времени компиляции или выполнения?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
kosta
Дата 10.5.2005, 02:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
компиляции
PM MAIL   Вверх
Alex
Дата 10.5.2005, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
kosta, может ты, наконец, приведешь текст ошибки, которую тебе выдают и в какой строке она возникает?


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
kosta
Дата 10.5.2005, 02:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
строка :
Добавлено @ 02:26
[censored 2] ))))

строка:
procedure TfrmBilet.FormClose(Sender: TObject; var Action: TCloseAction);

ошибка: declaration of "FormClose" differs from previos declaration
PM MAIL   Вверх
Alex
Дата 10.5.2005, 02:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Вырежи текст в буффер обмена:
Код

if qrTasks.active then qrTasks.close;
memoTask.Clear;
edtKolvoVoprosov.Text:='';
cbTheme.clear;

biletCount:=0;
SetLength(BiletSerie,BiletCount);
SetLength(currentBilet,0);

SerieStat.BiletNumber:=0;
setlength(SerieStat.Disciplines[0].Themes,0);
setlength(SerieStat.Disciplines,0);

frmBiletDiscipline.Enabled:=true;


Удали строку:
procedure FormClose(Sender: TObject; var Action: TCloseAction);
и

procedure TfrmBilet.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;

После чего попытайся откомпилировать проект, если все хорошо, то создай обработчик заново


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
kosta
Дата 10.5.2005, 02:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
оно то хорошо, причем в любом случае но без формклоуз, а када создаешь обработчик, причем не важно как или двойным нажатием или вручную, он начинает фокусы выкидывать


я вот ешо подумал, у мя там запросы накиданы, они никак не могут повлиять, бо только на формах с запросами глючит, но опять же не на всех
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.0567 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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