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

Вниз

Как правильно осуществить переход.   Найти похожие ветки 

← →
Wel   (2006-02-22 10:54) [0]

Уважаемые знатоки. Можно ли в одной процедуре, сделать так, что бы получился переход только на FileListBox1DblClick, а дальнейший код этой процедуры не выполнялся. У меня переход получается но вместе с ним выполняется все остальное с этой процедуры.procedure TForm1.Image9MouseDown(Sender: TObject; Button:TMouseButton;
  Shift: TShiftState; X: Integer; Y: Integer);
var  Image: TImage;   myPicture: TPicture;
begin
   Image:= TImage(Sender);
if (Button = mbRight) and (Image.Picture.Graphic <> nil) then begin
if (Image = ViewImage) then FileListBox1DblClick(Sender);
myPicture :=  Image.Picture;
BufPhotoImage.picture.assign(myPicture);
myPicture.Graphic := nil;
 end;Подскажите пожалуйста как быть. С уважением.

---

← →
umbra ©   (2006-02-22 10:58) [1]

if (Image = ViewImage) then
begin
 FileListBox1DblClick(Sender);
 exit;
end;

---

← →
McSimm ©   (2006-02-22 10:59) [2]

if () then
begin
 ...
end
else
begin
 ....
end

или

if () then
begin
 ...
 exit;
end;
....

---

← →
EvS   (2006-02-22 11:00) [3]

if (Image = ViewImage) then begin
 FileListBox1DblClick(Sender);
 exit;
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.048 c