Здравствуйте, помогите пожалуйста!
У меня есть 2 формы: на первой лежит кнопка, с помощью которой создается круглая форма, image пустой и PopupMenu; на второй RadioButton, при нажатии на который, на первой форме в image должна загружаться картинка и чтоб эту картинку можно было редактировать(цвет, размер, прозрачность).
Написала:
Код:
1 2 3 4 5 | procedure TForm2 . RadioButton1Click(Sender: TObject);
begin
if RadioButton1 . Checked then
Form1 . Image1 . Picture . Bitmap . LoadFro mFile ( 'D:\2\Image1.bmp' );
end ;
|
Админ: Пользуемся тегами для оформления кода!
Но так с картинкой ничего сделать не получается. Помогите исправить ошибку