Форум: "Начинающим";
Текущий архив: 2014.01.19;
Скачать: [xml.tar.bz2];
ВнизНе работает кнопка Найти похожие ветки
← →
Андрей2000 (2013-03-20 10:38) [0]Вопрос такой: на одной форме созданы 2 кнопки одно предназначенная для перемотки изображений вперед, другая назад, вот со 2-й кнопкой то и проблема, если щелкнуть несколько раз по кнопке вперед, все работает как нужно, кнопка назад тоже вроде бы работает, но как только доходит до первого изображения нажимаем на нее еще раз она исчезает вовсе, как сделать, чтобы после первого изображения при нажитии отображалось последнее? Заранее спасибо.
procedure TForm4.Button1Click(Sender: TObject);
begin
if k >1 then begin k:=k-1; Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+"\pdd\"+inttostr(k)+".jpg");end
else begin button1.Visible:=false;bitbtn1.Visible:=true; end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
WinExec(PANsiChar("TASKKILL /F /IM delphi32.exe"), SW_HIDE);
end;
end.
← →
O'ShinW © (2013-03-20 11:01) [1]procedure TForm4.Button1Click(Sender: TObject);
begin
if k <> 0 then
k:=k-1 else
k := [максимальное];
Image1.Picture.LoadFromFile(ExtractFilePath(Application. ExeName)+"\pdd\"+inttostr(k)+".jpg");
end;
← →
Андрей2000 (2013-03-20 11:09) [2]O"ShinW ©
теперь при нажатии кнопки назад выскакивает ошибка:
Project project1.exe raised exception classEFopenError with message Cannot open file D:\kursovaya\\pdd\0.jpg. Proces stopped. Use Step or Run to continue.
← →
Inovet © (2013-03-20 11:14) [3]> [0] Андрей2000 (20.03.13 10:38)
> WinExec
Некрофилы никак не успокоятся.
← →
Inovet © (2013-03-20 11:29) [4]> [1] O"ShinW © (20.03.13 11:01)
> if k <> 0 then
> k:=k-1 else
> k := [максимальное];
Ну, у автора телетайп вместо монитора, я понимаю - сложно, бумагу опять же надо экономить, экология. А ты-то зачем так написал?:) Я сразу даже не понял что там.
← →
O'ShinW © (2013-03-20 11:35) [5]
> Андрей2000 (20.03.13 11:09) [2]
ну, значит,
> if k <> 1 then
трудно что ли догадаться? :)
> Inovet © (20.03.13 11:29) [4]
дык потому и отформатировал, что бы показать, как легко бы читалось :)
← →
robt (2013-03-21 18:36) [6]
> \pdd\
правила дорожного движения детектед :)
← →
Плохиш © (2013-03-21 18:42) [7]
> Андрей2000 (20.03.13 10:38)
> как только доходит до первого изображения нажимаем на нее
> еще раз она исчезает вовсе
> else begin button1.Visible:=false;bitbtn1.Visible:=true;
> end;
С логикой проблемы? Откуда код скопипастил?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.01.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.003 c