VPF::Обработчик события - Форум программистов

KeenGravy

Дата 8.8.2006, 18:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Во время работы приложения (т.е. в run-time) создаю компонент, к примеру:

Код


var
Image: TImage;
....
Image := TImage.Create(Form1)

with Image do
begin
    Parent:=Form1;
    height:=555
    width:=555;
    left:=555;
    Top:=555;
    Picture:='Картинка.bmp';
end;

А проблема в следующем: Не получается придумать обработчик событий для OnClick!!!!!
(совершенно обычный OnClick нужен, только для создаваемого ком-та). Или он где-то есть
уже, что даже скорей всего, просто его выцарапать надо...

Демо

Дата 8.8.2006, 19:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

KeenGravy,
У TImage ведь есть событие OnClick.

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

KeenGravy

Дата 8.8.2006, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну да.... В том то и дело, что событие есть!

Я вот чего имею ввиду: Если мы кидаем на форму компонент, то кликнув по нему или выбрав событие onClick, мы создаем процедуру - обработчик события, типа
procedure TForm1.Image1Click(sender) ...... бла-бла.....,

где мы напишем все что нужно, все шоколадно.

Как мне сделать тоже самое, только если компонента первоначально нет, а появится он только при определенных условиях в запущенной программе.

Воть. Надеюсь, теперь более по-русски...

Romikgy

Дата 8.8.2006, 21:19 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

а кто мешает написать требуемую ф-цию, в формате

Цитата(KeenGravy @ 8.8.2006, 20:04

)

TForm1.Image1Click(sender)

и после создания

Цитата(KeenGravy @ 8.8.2006, 17:59

)

Image := TImage.Create(Form1)

подсунуть в Image.onClick:=твоя ф-ция?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 8.8.2006, 22:23 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Должно получится примерно так

Код


type
  TForm1 = class(TForm)
    img1: TImage;
    //обработчик
    procedure ImageClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ImageClick(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(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;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

KeenGravy

Дата 9.8.2006, 11:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Во!!! Спасибо, догнал теперь.
Только чтоб это работало надо объявить такую процедуру:

Код


class procedure Click(Sender: TObject);

И соответсвенно все дальнейшие манипуляции....

Демо

Дата 9.8.2006, 15:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(KeenGravy @ 9.8.2006, 11:44

)

class procedure Click(Sender: TObject);

С какой стати классовая процедура?
обработчик должен быть методом класса.

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

Snowy

Дата 9.8.2006, 15:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Демо, ты хотел сказать объекта.

Rennigth

Дата 9.8.2006, 15:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(KeenGravy @ 9.8.2006, 11:44

)

код Pascal/Delphi
class procedure Click(Sender: TObject);

мдя, такое на верное и не приснилось бы... smile

хотя если Sender-а правильного передавать, этим даже "можно" пользоваться если из Sender-данные брать smile

, ой, что это я, чюр меня!!! smile

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

(* Honesta mors turpi vita potior *)

Snowy

Дата 9.8.2006, 16:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

По логике евент должен быть методом объекта.
Хотя по факту можно ему подсунуть и метод класса.
А, если знать внутренее устройство, то и обычную процедуру подсунуть.

Код


procedure BtnOnClick(Sender: TObject; Self: TObject);
begin
  ShowMessage('Клик!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var ne: TNotifyEvent;
begin
  with TButton.Create(Self) do begin
    Caption := 'Кнопа для нажимания';
    Left := 12; Top := 8; Width := 160; Parent := Self;
    TMethod(ne).Code := @BtnOnClick;
    OnClick := ne; Show;
  end;
end;

Но так делать не стОит smile

AJIeKcEu

Дата 10.8.2006, 05:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

А что если воспользаваться полиморфизмом... smile

и задать объекту свойства кнопки при создании

полиморф.. пишется так: (Sender as TObject).OnClick:=button1.onclick; эт так для справки smile

Shuricksoft

Дата 10.8.2006, 13:47 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 27.3.2002
Где: Odessa, Ukraine

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

Цитата

(Sender as TObject).OnClick:=button1.onclick;

А не смущает, что Sender и так объявлен как TObject? =)

Кстати, если такой компонент один, то почему б его не создавать заранее, но невидимым? А, если нужно, делать visible := true.

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