Форум: "Потрепаться";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз
Помогите кто чем может с кодом Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c
