Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Помогите пожалусто разабратся с image!

Автор: Volkogriz 9.11.2007, 18:36

Доброе время суток!
Помогите пожалусто разабратся с image!
Мне нужно что-б при нажатии одной и той-же кнопки загружались разные рисунки с определённной папке!
Помогите это реализовать пожалусто!!!!
За рание благадарю!!!
С уважением Volkogriz!

Автор: ivan219 9.11.2007, 22:00

Код


var
  Form1: TForm1;
  I: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if I > 10 then I := 0;
 Image1.Picture.LoadFromFile('Name'+IntToStr(I)+'.bmp');
 Inc(I);
end;

Автор: Sanchezzz 9.11.2007, 22:10

вот держи мини пример

Автор: Volkogriz 9.11.2007, 23:49

Спасибо большое!!!
но это немного не то!
Нужно в программе типо книга перелистывать страници!
Менять формы не икономно и слишком громоздко!
Побокам книги с право и слево по кнопки и нужно листать страници которые реализованы в виде jpg и bmp картинок!!!
Помоги перелистать книгу от ночало до конца и от конца до начала!!!
За рание благадарю!!!
С уважением Volkogriz!

Автор: ivan219 10.11.2007, 01:48

Volkogriz, ну и чем тебе мой пример не устроил smile

листай сколько забрагороссудится:

Код


var
  Form1: TForm1;
  I: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('Книга/Name'+IntToStr(I)+'.bmp');
 if I < 10 then Inc(I);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('Книга/Name'+IntToStr(I)+'.bmp');
 if I > 0 then Dec(I);
end;

Автор: Volkogriz 10.11.2007, 10:07

Спасибо большое ivan219 и Sanchezzz!!!
С уважением Volkogriz!