Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Вниз

Error 216?   Найти похожие ветки 

 
Alibaba   (2002-05-20 17:23) [0]

Все привет.
Подскажите, плиз :

===================== В ГЛАВНОМ ПРОЕКТЕ ======================

program Client2;

uses
Windows,Dialogs,Forms,
mdVariable in "mdVariable.pas",
dlgMain in "dlgMain.pas" {frmMain},
dlgLogin in "dlgLogin.pas" {frmLogin};

{$R *.RES}

begin
Application.Initialize;
Application.Title := "Client2";
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmLogin, frmLogin);
StartProgram;
end.

===================== mdVariable ======================

procedure StartProgram;
begin
frmLogin.ShowModal;
if frmLogin.ModalResult = mrOk then
begin
Application.ShowMainForm:=True;
Application.Run;
end
else
Exit
end;

==============================================

если frmLogin.ShowModal <> mrOk
и надо делать Exit - выдает ошибку :
The instruction at "тра-ля-ля" referenced memory at "тра-ля-ля".
The memory could not be "read".


Потом я закрываю это сообщение об ошибке - оно появляется еще раз
и потом появляется сообщение Runtime error 216

Подскажите плиз, куда бежать?!

Что, Данило, не выходит каменный цветок...


 
pb   (2002-05-20 17:25) [1]

попробуй application.terminate
но вообщето данный стиль не очень хорош


 
Alibaba   (2002-05-20 17:27) [2]

2 pb - пробовал - ничего... :(


 
valery_f   (2002-05-20 17:48) [3]

program Project1;

uses Forms, Controls,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.res}

begin
Form2 := TForm2.Create(Application);
if Form2.ShowModal <> mrOK then Exit;
Form2.Free;

Application.Initialize;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.ShowMainForm := true;
Application.Run;
end.


 
pb   (2002-05-20 17:48) [4]

я поместил функцию в файл проекта все работает как с терминате так и без елзе вообще но я бы написал примерно так или воспользовался компонентом из rxlib

function login:boolean;
begin
with fmrLogin.Create(Application) do
try
result := ShowModal = mrOk;
finally
Free;
end;
end;


begin
Application.Initialize;
Application.Title := "Client2";
if login then
begin
Application.CreateForm(TfrmMain, frmMain);
Applicatin.Run;
end;
end.





Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.025 c
6-81397
DKemper
2002-05-15 22:39
2002.07.25
!!!Очень!!! нужна помощь с TServerSocket.....


3-81155
BOL
2002-07-02 20:47
2002.07.25
Что нужно установить на локальную PC, чтобы БД на InerBase


14-81424
VDen
2002-06-27 09:50
2002.07.25
16 советов программисту, работающему в коллективе.


3-81136
nitro313
2002-07-03 14:52
2002.07.25
Народ, подскажите пожалуйста: Как динамически создавать алиас ?


1-81362
SemFLY
2002-07-11 22:35
2002.07.25
Как открыть CD-ROM, но тока тот который Slave, а не Master ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский