| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правильно осуществить переход. [D2005, XP]

Wel ©   (2006-02-22 10:54:00) 

Уважаемые знатоки. Можно ли в одной процедуре, сделать так, что бы получился переход только на 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;Подскажите пожалуйста как быть. С уважением.

---

EvS   (2006-02-22 11:00:00) [1]

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

---

McSimm   (2006-02-22 10:59:00) [2]

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

или

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

---

umbra   (2006-02-22 10:58:00) [3]

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

---

Наверх