|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.03.2007, 22:27 | #11 |
Форумчанин
Регистрация: 04.02.2007
Сообщений: 213
|
Вот листинг 1 формы
procedure TForm1.StringGrid1DblClick(Sender: TObject); var Fot1:string; begin Form2.Show; Fot1:=StringGrid1.Cells[0,StringGrid1.Row]+'.bmp'; Form2.Image1.Picture.LoadFromFile(F ot1); end; То есть двойным нажатием на 1 строке оно подгружает во 2 форму картинку, в которой листинг выглядит вот так: procedure TForm2.FormCreate(Sender: TObject); begin if Image1.Name='1.bmp' {Вот тут и вся проблема} then Edit1.Text:='Randomizе' end; ну я незнаю может можно, чтоб с первой формы с тем двойным нажатием на строке выполнялись какие-то функции, например с Edit1, находящегося во второй форме
Per Aspera Ad Astra
www.salviaclub.com.ua |
01.03.2007, 23:08 | #12 | |
Пользователь
Регистрация: 21.02.2007
Сообщений: 26
|
Цитата:
|
|
02.03.2007, 02:20 | #13 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Немного изменим: var Fot1: string; implementation .............. procedure TForm1.StringGrid1DblClick(Sender: TObject); //var Fot1:string; begin Form2.Show; Fot1:=StringGrid1.Cells[0,StringGrid1.Row]+'.bmp'; Form2.Image1.Picture.LoadFromFile(F ot1); end; То есть двойным нажатием на 1 строке оно подгружает во 2 форму картинку, в которой листинг выглядит вот так: procedure TForm2.FormCreate(Sender: TObject); begin if Unit1.Fot1='1.bmp' {Вот тут и вся проблема} then Edit1.Text:='Randomizе' end; |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
StringGrid | Devikss | Общие вопросы Delphi | 8 | 25.05.2008 16:14 |
StringGrid | MAcK | Общие вопросы .NET | 2 | 31.03.2008 11:40 |
StringGrid | Dimon88 | Компоненты Delphi | 15 | 14.02.2008 11:44 |
StringGrid | bart77 | Помощь студентам | 9 | 27.04.2007 09:35 |
Код 13 и stringGrid | Alar | Общие вопросы Delphi | 1 | 08.02.2007 22:44 |