Изображения

[Tuman777]

Доброго времени суток, Уважаемые Программисты.
Есть вопрос: на форме расположены 10 Image и кнопка. Image заполняются при помощи OpenDialoge програмно.
Вопрос: как сделать так, чтобы кнопка (Button1) была визибл, если все 10 Image не заполнены фото?
Заранее спасибо

[JUDAS]

попробуйте использовать Image1.Picture.Bitmap.Empty

[Tuman777]

я пробовал сделать это через if, т.е. if Image1.Picture=, как написать что Image1=0 или равен ничему?

[NetSpace]

сделайте лучше через свойства Drag On Drop (кидание файлов мышкой на форму) и в нём сделайте счётчик. как только счётчик =10, то кнопка становится неактивной.

[Tuman777]

Нет это не подходит. Мне скорее всего нужно условие, т.е. если Имидж1 равен пустоте, то Кнопка принимает значение Визибл Фалсе. Вот, что хотелось бы сделать. Проблема в том, что я не знаю как написать, что Имидж1 равен ничему, т.е. в нем нет изображения

[phomm]

Покэпствую :

if Image1.Picture.Bitmap.Empty then
  button1.visible := false;

[Tuman777]

Спасибо phomm. я не пробовал твой вариант, но ты хотя бы понял о чем идет речь.
Есть вопрос, код который ты написал, зависит от разрешения фото?

[Shouldercannon]

Сообщение от phomm

Покэпствую :

if Image1.Picture.Bitmap.Empty then
  button1.visible := false;

Исчезают Image1 и Button1

Сообщение от Tuman777

Спасибо phomm. я не пробовал твой вариант, но ты хотя бы понял о чем идет речь.
Есть вопрос, код который ты написал, зависит от разрешения фото?

Не должно

if Image1.Picture.Graphic <> nil then Button1.Visible := False else Button1.Visible := True; // Если в Image1 что-то есть, то кнопка скрывается, иначе с ней ничего не происходит

[Tuman777]

Shouldercannon ты прав, исчезает фото и кнопка

[phomm]

Если необходимо показывать кнопку , когда все имейджи пусты, то я бы сделал так :

если имейджи создаются в дельфи (т.е. на форму кидают, в дизайн-тайм) то можно занести их в массив, например так :

const cnt = 10;
var imar : array [1..cnt] of timage;
...
procedure tform1.formcreate(sender: tobject);
begin
imar[1] := image1;
imar[2] := image2;
...
end;

// некое событие, которое вызывается, в нем цикл, это может быт appliation.onidle 
// или ещё что, это уже Вам додумать надо, в задаче Вы не указали

var doshow : boolean
begin
doshow := true;
for i  := 1 to cnt do 
  if not imar[i].picture.bitmap.empty then
  begin
  doshow := false;
  break;
  end;
button.visible := doshow;
end;