Помогите кто чем может с кодом

← →
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"

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

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

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

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

uses

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

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

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

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