| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

закрытие fsMDIChild формы

Страницы:   < 1 2 >

gentos ©   (2007-08-16 15:31:00) 

ув. мастера создаю и вызываю ее следующим образом

TScanDocForm.Create(self).Show;

хочу закрыть ее при нажатиии на кнопку, пишу следующее :

procedure TScanDocForm.BtnEndClick(Sender: TObject);
begin
 ScanDocForm.Free;  -- ?
end;

выледает еррор апликатион, вообщем абракадабра типа аксес виолатион и т.д.

---

Сергей М.   (2007-08-16 16:42:00) [1]

Удалено модератором

---

gentos   (2007-08-16 16:40:00) [2]

Удалено модератором

---

Сергей М.   (2007-08-16 16:39:00) [3]

Удалено модератором

---

gentos   (2007-08-16 16:39:00) [4]

Удалено модератором

---

gentos   (2007-08-16 16:38:00) [5]

> Сергей М. ©   (16.08.07 16:34) [24]



> А здесь тебе предложили вызвать метод Close текущей формы

а я-то думал Scandocform.Close , вообщем проехали,
тема закрыта, всем кто участвовал - сенкс !!

---

Сергей М.   (2007-08-16 16:37:00) [6]

Удалено модератором

---

gentos   (2007-08-16 16:35:00) [7]

> Игорь Шевченко ©   (16.08.07 16:31) [22]


большое Вам спасибо Игорь, наконец-то хоть кто-то написал, то, что мне надо было

---

Сергей М.   (2007-08-16 16:34:00) [8]

Удалено модератором

---

gentos   (2007-08-16 16:32:00) [9]

если делаю, что написал в [19] , то вылетает фатал еррор Файл нот фаунд PravadostupaScanDoc.дцу , что этА ?)

---

Игорь Шевченко   (2007-08-16 16:31:00) [10]

> procedure TScanDocForm.BtnEndClick(Sender: TObject);
> begin
>  PTreeview.Free;
>  ScanDocForm.Close;
> end;


procedure TScanDocForm.BtnEndClick(Sender: TObject);
begin
PTreeview.Free;
Close;
end;

---

gentos   (2007-08-16 16:30:00) [11]

> Сергей М. ©   (16.08.07 16:28) [19]

так что сделать вот так вот
>//PravadostupaScanDoc in 'units\PravadostupaScanDoc.pas' {ScanDocForm},</B

?

---

gentos   (2007-08-16 16:28:00) [12]

что происходит ? :), где я ?), а я думал здесь delphimaster, а здесь ... )
напишите плиз, все-таки хочется , чтобы не выскакивал еррор :), это называется следующим образом: "балакалы , балакалы, силы та й заплакалы" )

---

Сергей М.   (2007-08-16 16:28:00) [13]

Удалено модератором

---

gentos   (2007-08-16 16:24:00) [14]

> Reindeer Moss Eater ©   (16.08.07 16:17) [17]


умею, а какой модуль Вы имеете ввиду ?

program Pravadostupa;

uses
 Forms,
 pravadostupaDM in 'units\pravadostupaDM.pas' {DM: TDataModule},
 pravadostupaLook in 'units\pravadostupaLook.pas' {Lookfrm},
 pravadostupaMain in 'units\pravadostupaMain.pas' {MainForm},
 PravadostupaUtils in 'units\PravadostupaUtils.pas',
 PravadostupaReport in 'units\PravadostupaReport.pas' {Reportfrm},
 PravadostupaAbout in 'units\PravadostupaAbout.pas' {Aboutfrm},
 PravadostupaUsersReport in 'units\PravadostupaUsersReport.pas' {UserReportForm},
 PravadostupaOracle in 'units\PravadostupaOracle.pas' {Oraclefrm},
 PravadostupaOracleReport in 'units\PravadostupaOracleReport.pas' {frmOracleReport},
 PravadostupaUsersOracleReport in 'units\PravadostupaUsersOracleReport.pas' {UserOracleReportForm},
 PravadostupaTypeDocs in 'units\PravadostupaTypeDocs.pas' {TypeDocsForm},
 PravadostupaLoadfiles in 'units\PravadostupaLoadfiles.pas' {Loadfilefrm},
 PravadostupaUsersWebSiteParChoicefrm in 'units\PravadostupaUsersWebSiteParChoicefrm.pas' {UsersWebSiteParChoicefrm},
 PravadostupaScanDoc in 'units\PravadostupaScanDoc.pas' {ScanDocForm},
 Twain in 'units\Twain.pas',
 Scanners in 'units\scanners.pas',
 PravadostupaImageForm in 'units\PravadostupaImageForm.pas' {frmImage},
 PTreeview in 'packages\PTreeview.pas',
 pravadostupaLookDoc in 'units\pravadostupaLookDoc.pas' {LookDocForm},
 PravadostupaShowPicture in 'units\PravadostupaShowPicture.pas' {ShowPictureForm};

{$R *.res}

begin
 Application.Initialize;
 Application.CreateForm(TDM, DM);
 Application.CreateForm(TMainForm, MainForm);
 Application.Run;
end.


вот этот ?)

---

Reindeer Moss Eater   (2007-08-16 16:17:00) [15]

Читать умеешь?
не из [10], а из модуля

---

gentos   (2007-08-16 16:16:00) [16]

> Reindeer Moss Eater ©   (16.08.07 16:12) [15]


удалить из [10] ?, если да, то что именно, можна пальцем показать ?)

---

Reindeer Moss Eater   (2007-08-16 16:12:00) [17]

Удали из модуля все упоминания о переменной ScanDocForm и жить сразу станет легче.

---

gentos   (2007-08-16 16:10:00) [18]

да, и + к [13]  и чтобы при  этом форма-то закрывалась ...

---

gentos   (2007-08-16 16:09:00) [19]

:) вообщем, можете написать код , который можна будет вставить вот сюда, чтобы не вылетал еррор

procedure TScanDocForm.BtnEndClick(Sender: TObject);
begin
  вот сюда )
end;


---

Сергей М.   (2007-08-16 16:06:00) [20]

Удалено модератором

---

Страницы:   < 1 2 >

Наверх