![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Во многих программах есть история, я попытался сделать массив из TImage, но когда пытаюсь получить Image из этого массива ничего не происходит.
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; images: array of TImage; index: Integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Canvas.Rectangle(10, random(50), 50, random(100)); SetLength(images, Length(images) + 1); images[High(images)]:=TImage.Create(nil); images[High(images)]:=Image1; index:=index + 1; end; procedure TForm1.Button2Click(Sender: TObject); begin index:=index - 1; Image1.Picture.Assign(images[index].Picture); Image1.Refresh; end; end. Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. Последний раз редактировалось The Shadow, 07.11.2007 в 10:11. |