VPF::входной параметр процедуры - Форум программистов

santilaas

Дата 13.8.2007, 14:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет всем!
Вопрос такой: в run-time создаю кнопку, для неё определяю процедуру нажатия onClick:

Код


ToolButton.OnClick:=ToolButtonClick;

где ToolButtonClick определяется так:

Код


procedure TFMain.ToolButtonClick(Sender: TObject);
begin
//
end;

- нужно в эту стандартную процедуру нажатия добавить свой входной параметр, например, так:

Код


procedure ToolButtonClick(Sender: TObject; Form: TForm);

- сделал я так, но что передавать процедуре в качестве параметра Sender при её вызове?

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

[

bems

Дата 13.8.2007, 14:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

кнопка вызывает обработчик таким, каким ее научили. непойдет

Добавлено через 2 минуты и 43 секунды

Цитата(santilaas @ 13.8.2007, 14:45

)

сделал я так, но что передавать процедуре в качестве параметра Sender при её вызове?

кнопка туда передает себя. если тебе нужно узнать форму, то пройдись по цепочке парентов до первого попавшегося наследника TCustomForm

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

Обижено школьников: 8

Rennigth

Дата 13.8.2007, 15:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(bems @ 13.8.2007, 14:52

)

До кучи

Как-то нужна была.

Код


function GetFirstParentForm(AControl: TControl): TForm;
var
  lControl: TControl;
begin
  Result := nil;
  if Assigned(AControl) then
  begin
    lControl := AControl;
    while Assigned(lControl.Parent) do
    begin
      if lControl.Parent is TForm then
      begin
        Result := TForm(lControl.Parent);
        Break;
      end;
      lControl := lControl.Parent;
    end;
  end;
end;

или есть просто GetParentForm, но она возвращает последнюю форму в иерархии.

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

(* Honesta mors turpi vita potior *)

sentry

Дата 13.8.2007, 15:08 (ссылка)

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

Загрузка ...

Code Monkey

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

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

А почему нельзя просто передать nil?

bems

Дата 13.8.2007, 15:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

да куда передать? обработчик что только руками вызывается?

передать то можно, но в обработчике ты наверное захочешь знать кнопку

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

Обижено школьников: 8

sentry

Дата 13.8.2007, 15:18 (ссылка)

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

Загрузка ...

Code Monkey

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

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

Цитата(bems @ 13.8.2007, 16:43

)

обработчик что только руками вызывается?

Скажем так, что он наверное еще и руками...

Цитата(bems @ 13.8.2007, 16:43

)

передать то можно, но в обработчике ты наверное захочешь знать кнопку

Ну если потом Sender используется в обработчике, то передать вместо nil можно любой объект, который будет в этом обработчике анализироваться.

bems

Дата 13.8.2007, 15:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

да. но кнопка и дальше будет передавать туда себя.

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

Обижено школьников: 8

sentry

Дата 13.8.2007, 15:32 (ссылка)

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

Загрузка ...

Code Monkey

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

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

Цитата(bems @ 13.8.2007, 16:54

)

но кнопка и дальше будет передавать туда себя.

Не понял, что ты имеешь в виду smile

bems

Дата 13.8.2007, 15:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

я имею в виду, что если кнопка пишет туда себя а ты что-то другое, то обработчик должен быть более интеллектуальным и как-то определять чего от него хотят. это лишнее усложнение

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

Обижено школьников: 8

sentry

Дата 13.8.2007, 15:53 (ссылка)

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

Загрузка ...

Code Monkey

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

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

В общем-то часть ответа уже есть:

Цитата(bems @ 13.8.2007, 16:22

)

кнопка вызывает обработчик таким, каким ее научили. непойдет

Вот почему:

Код


type
  TNotifyEvent = procedure(Sender : TObject) of object;

  TControl = class(TComponent)
  private
    FOnClick : TNotifyEvent;
  protected
    procedure Click; dynamic;
    property OnClick : TNotifyEvent read FOnClick write FOnClick;   
  end;

procedure TControl.Click;
begin
  if Assigned(FOnClick) then FOnClick(Self);
end;

Sunvas

Дата 13.8.2007, 17:13 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

santilaas, Если ты не используешь свойство tag, то пихай идентификатор формы туда.

Это сообщение отредактировал(а) Sunvas - 13.8.2007, 17:13

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

santilaas

Дата 16.8.2007, 13:42 (ссылка)

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

Загрузка ...

Опытный

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

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

- в общем проблему решил так:

Код


procedure TFMain.ToolButtonClick(Sender: TObject);
var ChildForm: TForm;
    i:integer;
begin
   for i:=0 to screen.FormCount - 1 do
      if screen.Forms[i].tag = TToolButton(Sender).Tag then
         ChildForm:= screen.Forms[i];
//дальше с этой формой и работаю ...
end;

всем спасибо за желание помочь

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

[

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