Здравствуйте, подскажите пожалуйста как создать класс наследник TList и в нем хранить карды. Потом припаять к нему метод типа Draw и указать на какой Canvas выводить все это. Также можно внутри Этого класса создать таймер по которому это все и будет в конечном счете работать.
в этой программке
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm2 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
img:Array[0..1] of String;
temp:integer;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
img[0]:='images/0.bmp';
img[1]:='images/1.bmp';
temp:=2;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if (Image1.Left>600) then Image1.Left:=9;
if temp=0 then begin temp:=1; end else temp:=0;
Image1.Picture.LoadFromFile(img[temp]);
Image1.Left:=Image1.Left+10;
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.