Из MessageBox в Form |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Из MessageBox в Form |
GrabbeR |
12.04.2012 8:35
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Результат выводится в сообщении. Как перенаправить его на другую форму?
Спасибо. procedure TForm1.Button2Click(Sender: TObject); var i,j: Integer; StrResult,s:string; begin Button1Click(nil); StrResult:=''; for j:=1 to 15 do begin s:=''; for i:=1 to 6 do s:=s+' | '+IntToStr(Results[i,j]); StrResult:=StrResult+s+#13#10; end; for i:=1 to 6 do for j:=1 to 15 do Results[i,j]:=0; Application.MessageBox(pChar(StrResult),'Результат',MB_OK); { Form11:=tform11.create(application); form11.show } end; -------------------- Чем больше я узнаю, тем больше понимаю, что ничего не знаю
|
IUnknown |
12.04.2012 10:48
Сообщение
#2
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Что значит "перенаправить"? Сохранить в каком-то компоненте? Так сохраняй, обращаться можно к любой форме, указывая ее название.
|
Текстовая версия | 28.09.2024 17:33 |