VPF::странная ошибка с ShowMessage - Форум программистов

UMmi

Дата 22.11.2006, 00:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: -1
Всего: 0

Есть процедура, в теле которой в некотором случае (если одна переменная = 0) должно выводится:
ShowMessage('15');
Все выводится, но я жму на кнопке ок на сообщении, оно мигает, но не исчезает... Т.е. по сути дела продолжение программы не возможно. Ребята, как это исправить?

Код


procedure zap_my;
var i,j,k,s,dalwe,f,str_mem : integer;
p :boolean;
begin
my[1,1]:=0;
for i:=2 to PixList.Count do
  my[1,i]:=10;
  
for j:=2 to PixList.Count do// заполняем столбцы j матрицы my
 for i:=1 to PixList.Count do //идем по строкам
 begin
 if i=1 then //если заполняем первую строку (матрицы my)
  begin
   s:=min(sum(mc[1, 1],my[j-1,1]), sum(mc[2, 1], my[j-1,2]));
   for k:=2 to pixList.Count-1 do s:=min(s, sum(mc[k+1, 1], my[j-1,k+1]));
   my[j,1]:=0;// min(0, s);
  end else 
   begin
    s:=min(sum(mc[1, i],my[j-1,1]), sum(mc[2, i],my[j-1,2]));
    for k:=2 to pixList.Count-1 do s:=min(s, sum(mc[k+1, i], my[j-1,k+1]));
    my[j,i]:=s;
   end;{else}
 end;
dalwe:=1;
if my[PixList.Count, pytdo]=10 then
  ShowMessage('15');

Дата 22.11.2006, 00:48 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

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

Репутация: 14
Всего: 115

Не надо делать ShowMessage ___ Сделай своё окно.

UMmi

Дата 22.11.2006, 00:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: -1
Всего: 0

Это понятное решение, а все же спортивный интерес, где ошибка? smile

dumb

Дата 22.11.2006, 02:03 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

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

Репутация: 13
Всего: 158

Цитата(UMmi @ 22.11.2006, 00:49

)

спортивный интерес, где ошибка?

ошибка скорее всего в том, что условие у тебя выполняется неоднократно - либо несколько окошек "15" создается, либо сразу после убирания одного, вылезает другое.

Guedda

Дата 22.11.2006, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

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

Репутация: 14
Всего: 78

Ипользуй лучше MessageBox, либо MessageDlg

--------------------

Ll 2

Akella

Дата 22.11.2006, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код


Application.MessageBox(Application.activeFormHandle, ...)

Rodman

Дата 22.11.2006, 10:56 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

ShowModal - не подойдет???

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Yanis

Дата 22.11.2006, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

UMmi
Какой смысл использования переменной dalwe? Давай полностью процедуру, а лучше программу. Возможно процедура вызывается несколько раз..

--------------------

*щёлк*

Akella

Дата 22.11.2006, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

По поводу ShowModal:
В модальных формах рекомендуется вставлять 2 процедуры.
Это уже обсуждалось где-то на форуме.

Код


  private
    { Private declarations }
    procedure WMActivateApp(var Msg: TWMActivateApp); message WM_ACTIVATEAPP;
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
....

implementation

{$R *.dfm}

procedure TfmLogon.WMActivateApp(var Msg: TWMActivateApp);
//Если приложение в свернутом состоянии, то разворачиваем в нормальное
begin
  if IsIconic(Application.Handle) then begin
    ShowWindow(Application.Handle, SW_RESTORE);
    SetActiveWindow(Handle);
  end;
  inherited;
end;

procedure TfmLogon.WMSysCommand(var Msg: TWMSysCommand);
// Если сообщение "свернуть", то сворачиваем главную форму приложения
begin
  if (Msg.CmdType = SC_Minimize) then begin
    ShowWindow(Application.Handle, SW_MINIMIZE);
  end
  else
    inherited;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »