|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2012, 09:36 | #1 |
Пользователь
Регистрация: 17.03.2010
Сообщений: 43
|
Из MessageBox в Form
Результат выводится в сообщении. Как перенаправить его на другую форму?
Спасибо. 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(StrRes ult),'Результат',MB_OK); { Form11:=tform11.create(application) ; form11.show } end; |
12.04.2012, 12:36 | #2 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,885
|
Написать в принимающей форме метод, принимающий аргументом Вашу переменную с данными, в нужное время в исходной форме вызывать этот метод, передавая в него переменную.
Внутри метода - делаете что Вам нужно, чтобы отобразить данные. Вот у Вас в коде указано form11.show вот и сделайте примерно то же самое только будет как-то так: form11.showmydata(StrResult); Ну а в модуле и классе той формы надо объявить и реализовать этот метод. Не забывайте для выделения кода использовать кнопку с картинкой символа # |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли подключить к web form windows form? | Manonia | Windows Forms | 0 | 20.10.2010 05:28 |
MessageBox | Nice42ru | Общие вопросы Delphi | 6 | 04.06.2010 11:35 |
MessageBox | CraZZZy-GameRRR | Общие вопросы Delphi | 7 | 30.05.2010 01:42 |
MessageBox | mifka72 | Помощь студентам | 13 | 08.02.2010 14:46 |
Form.Show в Form.Create | UnD)eaD)Snake | Общие вопросы Delphi | 6 | 07.09.2007 11:13 |