![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#6
|
||||
|
||||
![]() Код:
procedure TForm1.N2Click(Sender: TObject); begin OpenDialog1.Execute; image1.Picture.LoadFromFile(opendialog1.filename); end; Код:
procedure TForm1.N2Click(Sender: TObject); begin if not OpenDialog1.Execute then Exit; image1.Picture.LoadFromFile(opendialog1.filename); end; Кроме того, для отображения/скрытия форм есть стандартные методы Show/Hide, а свойство Visible обычно используют для логических операций. Так-что вместо: Form2.Visible:=false; корректнее использовать: Form2.Hide; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 04.11.2013 в 15:47. |