سوال: اعمال شرط بر روی کنترل Image [بایگانی]

Fastdesign

دوشنبه 17 بهمن 1390, 17:07 عصر

سلام
زیاد جستجو کردم ولی به نتیجه ای نرسیدم .

با این دستور تصویر داخل کنترل Image را حذف می کنم :
Image1.Picture.Assign(nil)

حالا می خوام بهش بگم اگه کنترل Image خالی بود برام فلان کار انجام بده.

ولی نمی دونم چجوری این کار را انجام بدم.یعنی نمی دونم با چه دستوری توسط دستورات شرطی براش شرط بزارم.

Mahmood_M

دوشنبه 17 بهمن 1390, 17:24 عصر

if Image1.Picture.Graphic.Empty then

Fastdesign

دوشنبه 17 بهمن 1390, 17:42 عصر

داش من طبق همین خاصیت که شما گفتید انجام دادم ولی خطا می گیره !!!

Mahmood_M

دوشنبه 17 بهمن 1390, 18:36 عصر

کدی که نوشتید و متن خطا رو قرار بدید ...

Fastdesign

دوشنبه 17 بهمن 1390, 19:03 عصر

کد :
if Image1.Picture.Graphic.Empty then
ShowMessage('No Picture');

خطا :
82119

Mahmood_M

دوشنبه 17 بهمن 1390, 19:42 عصر

اگر Graphic رو در زمان اجرا Nil می کنید ، با استفاده از Assigned خالی بودنش رو چک کنید ، یعنی :

if not Assigned(Image1.Picture.Graphic) then
ShowMessage('Empty')
else
Image1.Picture.Graphic := nil;
متاسفانه این یکی از ضعف های کامپوننت TImage هست که راه حل مناسبی برای حذف تصویر و بررسی وجود عکس درش موجود نیست !

موفق باشید ...

Mask

دوشنبه 17 بهمن 1390, 19:48 عصر

اگر Graphic رو در زمان اجرا Nil می کنید ، با استفاده از Assigned خالی بودنش رو چک کنید ، یعنی :

if not Assigned(Image1.Picture.Graphic) then
ShowMessage('Empty')
else
Image1.Picture.Graphic := nil;
متاسفانه این یکی از ضعف های کامپوننت TImage هست که راه حل مناسبی برای حذف تصویر و بررسی وجود عکس درش موجود نیست !

موفق باشید ...

خوب این خودش یه راهه دیگه.

Mahmood_M

دوشنبه 17 بهمن 1390, 20:26 عصر

خوب این خودش یه راهه دیگه.
منظورم اینه که خود ابزار TImage این موارد رو مدیریت نمی کنه ، اگر بخواید در زمان اجرا یک تصویر رو در Image قرار بدید و یا اون رو خالی کنید ، دیگه Empty به دردی نمی خوره ! ، درواقع Empty فقط برای مواقعی که مطمئنیم چیزی در Image وجود داره کاربرد داره !! ، چون زمانی میشه ازش استفاده کرد که مقدار Picture یا Graphic مربوط به TImage مقداری بهشون Assign شده باشه و nil نباشن !