Перекрывание !!!

← →
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;

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

← →
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;

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