Скачать: CL | DM;

Помогите кто чем может с кодом   Найти похожие ветки 

← →
picaroon ©   (2003-06-25 10:01) [0]

На форме Form1 есть 4 QRImage (QRImage1,QRImage2,QRImage3,QRImage4) и за счет изменения l я хотел бы присвоить им картинку _bmp. На что он мне пишет Undeclared identifier: "Picture"

//NamePrefix_2="QRImage"

inc(l);
_bmp := Form2.GetFormImage;
try
With TForm1(FindComponent(NamePrefix_2+IntToStr(l))) do
Picture.Graphic := _bmp;
finally
_bmp.Free
end;

---

← →
picaroon ©   (2003-06-25 10:09) [1]

И что не одной умной мысли ни у кого нет??

---

← →
SVM (Perm)   (2003-06-25 10:26) [2]

QRImage1(TForm1(...)).Picture.Graphic:=...

---

← →
Palladin ©   (2003-06-25 10:28) [3]

если бы SVM еще бы понял чего он написал...

---

← →
picaroon ©   (2003-06-25 10:30) [4]

SVM (Perm), а поподробнее? Это ты хочешь предложить заместо всего кода?

---

← →
picaroon ©   (2003-06-25 10:31) [5]

Может Palladin ты подскажешь?

---

← →
Семен Сорокин ©   (2003-06-25 10:33) [6]

:))
var
_img : TQRImage;

inc(l);
_bmp := Form2.GetFormImage;
try
_img := Form1.FindComponent(NamePrefix_2+IntToStr(l));
if Assigned(_img) then
_img.Picture.Graphic := _bmp
finally
_bmp.Free
end;

---

← →
Palladin ©   (2003-06-25 10:34) [7]

вот, написали, копируй...

---

← →
picaroon ©   (2003-06-25 10:48) [8]

Incompatible types: "TQRImage" and "TComponent"

_img := Form1.FindComponent(NamePrefix_2+IntToStr(l));

Вот такая вот ошибка :(((

---

← →
SVM (Perm)   (2003-06-25 10:50) [9]

inc(l);
_bmp := Form2.GetFormImage;
try
With QRImage1(TForm1(FindComponent(NamePrefix_2+IntToStr(l))) ) do
Picture.Graphic := _bmp;
finally
_bmp.Free
end;

---

← →
SVM (Perm)   (2003-06-25 10:52) [10]

Точнее,
With QRImage(TForm1(FindComponent(NamePrefix_2+IntToStr(l))) ) do ...

---

← →
Семен Сорокин ©   (2003-06-25 10:56) [11]

_img := TQRImage(Form1.FindComponent(NamePrefix_2+IntToStr(l)));

---

← →
Palladin ©   (2003-06-25 11:00) [12]

> picaroon ©

не забудь написать в AboutBox своей программы

(c) Толпа не известных добрых программистов

---

← →
Семен Сорокин ©   (2003-06-25 11:05) [13]

Palladin © (25.06.03 11:00)
:))

---

← →
picaroon ©   (2003-06-25 11:11) [14]

В Form1 я объявляю _img:
public
_img : TQRImage;
end;

Затем в Form2 вставляю код:

var
_img : TQRImage;

inc(l);
_bmp := Form2.GetFormImage;
try
Form1._img := TQRImage(Form1.FindComponent(NamePrefix_2+IntToStr(l)));
if Assigned(Form1._img) then
Form1._img.Picture.Graphic := _bmp
finally
_bmp.Free
end;

И получаю в ответ ошибку:
Undeclared identifier: "TQRImage"

---

← →
picaroon ©   (2003-06-25 11:13) [15]

Ну без вот этого конечно:
var
_img : TQRImage;

---

← →
picaroon ©   (2003-06-25 11:22) [16]

Э-э народ!!! Не спать!

---

← →
Smithson ©   (2003-06-25 11:42) [17]

TQRImage у тебя в каком модуле объявлен? Вот и подключи его к модулю со второй формой!

---

← →
picaroon ©   (2003-06-25 12:06) [18]

Э-э, один вопрос... как его к этому самому модулю подключить то???

---

← →
Smithson ©   (2003-06-25 13:00) [19]

uses

---

← →
pasha676   (2003-06-25 13:45) [20]

Что то я не понял сути вопроса.
Если хочешь поместить картинку в репорт на основе TQRImage можно сделать просто что то типа QRImage1.Picture.LoadFromFile, ну или assign от существующего TImage, TBitmap или что там у тебя есть.

К чему огород городить?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.018 c