VPF::Вызов процедуры - Форум программистов

vood

Дата 30.4.2006, 05:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Тьма значит Sender это обьект событие которого обрабатываеться?

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

Вы все еще курите ? Тогда мы идем к вам

Yanis

Дата 30.4.2006, 07:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Демо, Тьма
Молодцы ;)

Цитата(Тьма @ 30.4.2006, 01:17

)

отвечу за яниса

Респект.

Добавлено @ 07:54

Цитата(vood @ 30.4.2006, 05:03

)

Тьма значит Sender это обьект событие которого обрабатываеться?

Отвечу за Тьму smile

Да.

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

*щёлк*

IamDreamer

Дата 30.4.2006, 08:50 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(vood @ 30.4.2006, 00:22

)

События ненужно вызывать как функции они срабатывают сами

Как это срабатывают сами? Допустим, необходимо при нажатии на кнопку "Создать папку" показать диалог создания папки. Получается, в событии OnClick кнопки нужно вписать:

Код


procedure NewDir(Sender: TObject);
begin
If NewForm.Edit1.Text<>'' Then MkDir(Form1.DirectoryListBox1.Directory+'\'+NewForm.Edit1.Text)
  Else
    begin
      ShowMessage('Введите имя папки');
    end;
  NewForm.Close;
  Form1.DirectoryListBox1.Update;
  Form1.DirectoryListBox2.Update;
end;

Но у меня эта процедура уже есть. Поэтому, в событии OnClick вписываю вместо целого кода процедуры ее вызов:

Код


procedure Button1Click(Sender: TObject);
begin
NewDir;
end;

Как это она сама вызовется?

Цитата(vood @ 30.4.2006, 00:22

)

Или утебя на форме нет popupmenu

И popupmenu тож есть.

Цитата(Yanis @ 30.4.2006, 00:21

)

может всё таки сделать процедуру с параметром и в нём передавать имя создаваемой папки?

Можно попробовать.

Joss

Дата 30.4.2006, 10:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Процедура NewDir у тебя имеет параметр типа TObject. Почему ты ее вызываешь без параметров? Вызывай так:

Код



procedure Button1Click(Sender: TObject);
begin
   NewDir(Sender);
end;

vood

Дата 30.4.2006, 14:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Напиши и немучайся

Код


procedure Button1Click(Sender: TObject);
begin
If NewForm.Edit1.Text<>'' Then MkDir(Form1.DirectoryListBox1.Directory+'\'+NewForm.Edit1.Text)
  Else
    begin
      ShowMessage('Введите имя папки');
    end;
  NewForm.Close;
  Form1.DirectoryListBox1.Update;
  Form1.DirectoryListBox2.Update;

end;

Добавлено @ 14:09
ЗЫ
Yanis, спасибо

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

Вы все еще курите ? Тогда мы идем к вам

IamDreamer

Дата 1.5.2006, 10:40 (ссылка)

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

Загрузка ...

Опытный

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

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

vood, дык это че, везде придется писать?

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