IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Из MessageBox в Form
сообщение
Сообщение #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;


--------------------
Чем больше я узнаю, тем больше понимаю, что ничего не знаю
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

Репутация: -  627  +


Что значит "перенаправить"? Сохранить в каком-то компоненте? Так сохраняй, обращаться можно к любой форме, указывая ее название.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 3:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name