VPF::событие при щелчке - Форум программистов

welt

Дата 18.8.2006, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.5.2005
Где: UnderGround

Репутация: нет
Всего: нет

Допустим, есть такая конструкция

Код


...................
var
Image: TImage;

Begin
Image := TImage.Create(Form1);
with Image do
begin
  Parent:=Form1;
  height:=555;
  Width :=555; 
  left:=555;
  Top:=555;
end;

Image.OnClick := Button1.click;
end;

Т.е я создаю компонент. потом нужно как-то сделать обработчик события нажатия на эту картинку.
я сделал как-то кустарно очень..Через кнопку.
как нормально сделать???

demon13

Дата 18.8.2006, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет

Код


...

type
    procedure ImageClick(Sender: TObject);

...
var
Image: TImage;

Begin
Image := TImage.Create(Form1);
with Image do
begin
  Parent:=Form1;
  height:=555;
  Width :=555; 
  left:=555;
  Top:=555;
end;

Image.OnClick:= ImageClick;
end;

procedure TForm1.ImageClick(Sender: TObject);
begin
//Сюда пишешь код
end;

demon13

Дата 19.8.2006, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет

welt, может ты всеже напишешь работает у тебя этот код или нет smile

Guedda

Дата 19.8.2006, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

demon13, а ты сам не можешь попробовать?

Вообще всё практически правильно, только объявление процедуры не в type прописывать надо, а так:

Код


type
  TForm1 = class(TForm)
  //...
  private
    procedure ImageClick(Sender : TObject);

--------------------

Ll 2

demon13

Дата 19.8.2006, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет

Цитата(Guedda @ 19.8.2006, 09:00

)

а ты сам не можешь попробовать?

, я еще перед тем как советовать попробовал

Цитата(Guedda @ 19.8.2006, 09:00

)

только объявление процедуры не в type прописывать надо

, это я тоже знаю, delphi при нажатии Ctrl+Shift+C сам прописывает в private. Мне интересно было будет работать или нет, а дело было ночью, я забыл исправить так и выложил. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »