Всем привет!
Проблема
на событие OnShow проверяю существование баз данных
и если их нет то мне надо завершить прогу
а на этом событии вываливается ругательная месага
мно что пробовал даже halt не помогает
если что-то мжно сделать подскажите пожалуйста!
Заранее спасибо!

| Сообщение посчитали полезным:

какие базы, какое сообщение, как звершаешь программу ?

| Сообщение посчитали полезным:

NicknamES, заюзай IOResult. Правда не помню есть ли оно в Делфи, но в Паскале всегда пользовался.

-----
Blame the victim!

| Сообщение посчитали полезным:

А как ты проверяешь наличие базы данных? подключением к ней? тогда смотри эксепшены по этой базе или просто всунь кусок кода в try...finaly, если проблема с процедурой выхода юзай Application.Terminate;

-----
Crack your mind, save the planet

| Сообщение посчитали полезным:

Styx
хехе try except здесь втему в не finally

| Сообщение посчитали полезным:

1nn0cent пишет:
IOResult
есть - директивы I.. try except тож заюзать можно

AssignFile(f, 'Solo.exe');
{$I-}
Reset(f);
{$I+}
if IoResult <> 0 then Messagebox(Win, 'An error ocured while opening file', 'Error', MB_OK);

-----
Тут не могла быть ваша реклама

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

Application.Terminate

-----
Blame the victim!

| Сообщение посчитали полезным:

ExitProcess(0);
или
Application.Terminate;

P.S. Опередил =)

| Сообщение посчитали полезным:

Не могу понять зачем тебе именно OnShow , я например всегда пользуюсь OnCreate:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
try
Table1.Active := False;
Table1.DatabaseName := (ExtractFilePath(Application.ExeName)+'data');
Table1.TableName := 'dbase';
Table1.Active := True;
except
on EDatabaseError do
begin
Application.MessageBox('Невозможно открыть базу данных.', 'Ошибка', MB_ICONERROR);
Halt;
end;
end;

| Сообщение посчитали полезным:

всё, спасибо ExitProcess подошёл,
а кто меня всё же не понял пусть попробует осуществить выход из гланой формы во время собыия OnShow

| Сообщение посчитали полезным:

NicknamES пишет:
ExitProcess подошёл,
Конечно, ExitProcess "подчищает хвосты" от задачки, но наверняка не все. Т.е. если эту прогу будут вызывать раз 100 в день, то лучше все-таки выходить нормально, а не аварийно из середины.
По нормальному, надо в OnShow установить флаг/событие, а в цикле обработки событий его проверять.

| Сообщение посчитали полезным: