Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Обработчик события

Автор: KeenGravy 8.8.2006, 18:59

Во время работы приложения (т.е. в 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

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

Автор: KeenGravy 8.8.2006, 21:04

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

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

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

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

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

Автор: Romikgy 8.8.2006, 21:19

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

Цитата(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

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

Код


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;

Автор: KeenGravy 9.8.2006, 11:44

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

Код


class procedure Click(Sender: TObject);

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

Автор: Демо 9.8.2006, 15:47

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

)

class procedure Click(Sender: TObject);

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

Автор: Snowy 9.8.2006, 15:50

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

Автор: Rennigth 9.8.2006, 15:57

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

)

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

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

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

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

Автор: Snowy 9.8.2006, 16:26

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

Код


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

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

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

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

Автор: Shuricksoft 10.8.2006, 13:47

Цитата

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

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

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