Помощь - Поиск - Пользователи - Календарь
Полная версия: Из MessageBox в Form
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
GrabbeR
Результат выводится в сообщении. Как перенаправить его на другую форму?
Спасибо.

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
Что значит "перенаправить"? Сохранить в каком-то компоненте? Так сохраняй, обращаться можно к любой форме, указывая ее название.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.