Вниз
Скачать: CL | DM;

Проверка Image1.Picture=nil   Найти похожие ветки 

← →
Denkop ©   (2003-09-08 15:44) [0]

В OnActivate пишу так:

Image1.Picture:=nil;
if Image1.Picture<>nil then
ShowMessage("not nil") else
ShowMessage("nil");

При открытии формы получаю not nil, при этом я собственноручно, строчкой выше, занулил Image1.Picture.
Или я что-то напутал или у меня это раньше работало...

ЗЫ Дурацкий вопрос, мне стыдно, но ничего не могу поделать :-(


← →
ZEE ©   (2003-09-08 15:48) [1]

зачем тебе Image1.Picture ?
Скорее тебе надо Image1.Picture.Graphic


← →
PVOzerski ©   (2003-09-08 15:49) [2]

Возможно, кто-то из другого потока в этом же процессе ухитряется писать по этому же адресу (например, выход за границы массива). Хотя больше похоже на глюк оптимизации.


← →
Andy BitOff   (2003-09-08 15:52) [3]

Тебе точно надо использовать следующее:
Image1.Picture.Graphic:=nil;
if Image1.Picture.Graphic<>nil then
ShowMessage("not nil") else
ShowMessage("nil");


← →
Denkop ©   (2003-09-08 15:54) [4]

PVOzerski >> Всё намного проще
Image1.Picture.Graphic:=nil;
if Image1.Picture.Graphic<>nil then
ShowMessage("not nil") else
ShowMessage("nil");

Получаю nil

ZEE >> Ты был прав...

Благодарю!

Всё мне стыдно, ухожу :-()


← →
VMcL ©   (2003-09-08 16:43) [5]

>Denkop © (08.09.03 15:44)

Согласен, тебе должно быть стыдно :)

Picture - это свойство, при присваивании ему значения срабатывает метод SetPicture:
procedure TImage.SetPicture(Value: TPicture);
begin
FPicture.Assign(Value);
end;


... который не изменяет значение самого поля (то есть адрес экземпляра объекта) в указанный тобой nil.


← →
PVOzerski ©   (2003-09-08 16:52) [6]

А ведь, не посмотрев исходники VCL, этого не узнаешь.


← →
Denkop ©   (2003-09-08 16:54) [7]

:-()
:-()
:-()
:-()
......



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

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



Память: 0.46 MB
Время: 0.012 c
1-58770
vaa
2003-09-05 14:59
2003.09.18
class and forms


1-58662
Olvin
2003-09-03 08:44
2003.09.18
Как отправить *.prn файл на один из принтеров установленных в сис


4-58968
tipman
2003-07-17 10:12
2003.09.18
Вопрос по WaitForinputIdle...


3-58560
Layner
2003-08-25 16:01
2003.09.18
Подскажите, в потоке нельзя подсоединиться к SQL Server?


1-58693
Max_
2003-09-08 12:32
2003.09.18
TPageControl???




   Наверх