Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

Перекрывание !!!   Найти похожие ветки 

← →
pika ©   (2005-01-06 23:15) [0]

КАк сделать так чтобы в процессе работы программы image1 перекрывал image2 и наоборот (без использования Enable и Disable)
:)

---

← →
Eraser ©   (2005-01-06 23:26) [1]

Попробуй bringtotop и sendtoback

---

← →
den303 ©   (2005-01-06 23:31) [2]

Да уж, вопросец... Думал, что легко, запустил Дельфу и не нашёл ничего путного :o) Посмотрим, что посоветуют...

---

← →
pika ©   (2005-01-07 00:26) [3]

Erase, спасибо sendtoback работает, а bringtotop -нет :)

---

← →
Unleashed   (2005-01-07 02:36) [4]

Всё работает. вот как надо писать:

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.SendToBack;
image1.BringToFront;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
image1.SendToBack;
image2.BringToFront;
end;

---

← →
pika ©   (2005-01-07 02:53) [5]

теперь получается , спасибо !!!

---

← →
PZ   (2005-01-07 09:12) [6]

Еще работающий вариант:

procedure TForm1.Image1Click(Sender: TObject);
begin
 Image1.Visible := False;
 Image2.Visible := True;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 Image2.Visible := False;
 Image1.Visible := True;
end;

---

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

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c