Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2008, 22:59   #1
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию Масив и timage.

Если я создаю timage в масиве то как прописать процедуры onclick,
onmousemove, onmousedown.
  1. procedure TForm1.FormShow(Sender: TObject);
  2. var i:integer; but:array[1..2] of timage;
  3. begin
  4. for i:=1 to 2 do
  5. begin
  6. but[i]:=timage.Create(self);
  7. but[i].Parent:=self;
  8. but[i].AutoSize:=true;
  9. end;
  10. but[1].Picture.loadfromfile('data\asd.jpg ');
  11. but[1].Left:=200;
  12. but[1].Top:=500;
  13. but[2].Picture.loadfromfile('data\asd5.jp g');
  14. but[2].Top:=500;
  15. but[2].Left:=600;
  16. end;
Вот такой код.
RealSHELS вне форума Ответить с цитированием
Старый 05.05.2008, 23:25   #2
SunKnight
Участник клуба Подтвердите свой е-майл
 
Аватар для SunKnight
 
Регистрация: 14.12.2007
Сообщений: 1,434
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Fuck(Sender: TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Fuck(Sender: TObject);
begin
    Image1.Free;//описуем что будет выполнятся на клик
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Image1.OnClick:=FUCK;//присваиваем процедуру на клик
end;
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
SunKnight вне форума Ответить с цитированием
Старый 06.05.2008, 13:39   #3
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию

Спасибо за помощ
RealSHELS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Допоможіть описати ДВОВИМІРНИЙ масив! helof Паскаль, Turbo Pascal, PascalABC.NET 2 10.07.2008 21:33
Масив строк => строка Rio309 Помощь студентам 4 22.03.2008 15:35
Масив и матрица nikleb Паскаль, Turbo Pascal, PascalABC.NET 4 26.02.2008 01:31
элемменты заданого масива a(n) перепешите в новый масив b(n) в обратном порядке! finch Помощь студентам 4 25.06.2007 13:20
маcсив nikleb Паскаль, Turbo Pascal, PascalABC.NET 3 19.04.2007 23:23