Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

image3Click не работает 8-((   Найти похожие ветки 

← →
школьник   (2003-01-10 14:05) [0]

Не ругайтесь, я самостоятельно пытаюсь разобраться в дельфи. объясните, плз, почему Image3Click не работает?

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image3.Picture := image2.Picture;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image3.Picture.Bitmap.Handle := 0;
end;


procedure TForm1.Image3Click(Sender: TObject);
begin
if Image3.Picture = image2.Picture then
Image3.Picture := Image1.Picture;
end;
И как сделать шоб работал?

---

← →
zzet ©   (2003-01-10 14:59) [1]

>я самостоятельно пытаюсь разобраться

????

---

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

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c