Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Не работает кнопка [D6, XP]

Андрей2000 © (2013-03-20 10:38:00)
Вопрос такой: на одной форме созданы 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.

Плохиш (2013-03-21 18:42:00) [1]

> Андрей2000 (20.03.13 10:38)

> как только доходит до первого изображения нажимаем на нее
> еще раз она исчезает вовсе

> else begin button1.Visible:=false;bitbtn1.Visible:=true;
> end;

С логикой проблемы? Откуда код скопипастил?

robt (2013-03-21 18:36:00) [2]

> \pdd\

правила дорожного движения детектед :)

O'ShinW (2013-03-20 11:35:00) [3]

> Андрей2000 (20.03.13 11:09) [2]

ну, значит,

> if k <> 1 then

трудно что ли догадаться? :)

> Inovet © (20.03.13 11:29) [4]

дык потому и отформатировал, что бы показать, как легко бы читалось :)

Inovet (2013-03-20 11:29:00) [4]
> [1] O'ShinW © (20.03.13 11:01)
> if k <> 0 then
> k:=k-1 else
> k := [максимальное];

Ну, у автора телетайп вместо монитора, я понимаю - сложно, бумагу опять же надо экономить, экология. А ты-то зачем так написал?:) Я сразу даже не понял что там.

Inovet (2013-03-20 11:14:00) [5]
> [0] Андрей2000 (20.03.13 10:38)
> WinExec

Некрофилы никак не успокоятся.

Андрей2000 (2013-03-20 11:09:00) [6]
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.

O'ShinW (2013-03-20 11:01:00) [7]
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;

Наверх

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