|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.03.2010, 20:46 | #1 |
Пользователь
Регистрация: 07.03.2010
Сообщений: 45
|
не работает procedure
пытаюсь запустить следующие процедуры:
TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); TForm1.button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); ... , но они не работают. Возможно, я неправильно объявляю процедуру: procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); в "Type" Хотя работают такие процедуры как TForm1.Button1Click(Sender: TObject); что же я делаю неправильно? |
09.03.2010, 20:53 | #2 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
начнем с того что это методы класса.
и запускать их надо так Form1.Image1MouseDown Цитата:
методы для событий обьявляются(реализация) так procedure TForm1.Edit3Click(Sender: TObject); с указанием имени класса которому они принадлежат. учите ООП Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
09.03.2010, 20:58 | #3 |
Пользователь
Регистрация: 07.03.2010
Сообщений: 45
|
объявляю так:
type TForm1 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); вот первая процедура работает, вторая-нет. |
09.03.2010, 21:00 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
а реализацию как пишите?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
09.03.2010, 21:04 | #5 |
Пользователь
Регистрация: 07.03.2010
Сообщений: 45
|
procedure TForm1.button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin form1.label1.caption:='2'; end; procedure TForm1.Button1Click(Sender: TObject); begin form1.Button1.caption:='1'; end; в итоге наводим на кнопку-никакой реакции label-а, жмем-меняется caption кнопки. |
09.03.2010, 21:10 | #6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
а в редакторе свойств вы поставили их на события?
или хотяб в ОнКрит присвойте их. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
09.03.2010, 21:13 | #7 |
Пользователь
Регистрация: 07.03.2010
Сообщений: 45
|
я не знал про необходимость в этом, но понял о чем вы. выставил, все заработало, спасибо!
|
09.03.2010, 21:15 | #8 |
Форумчанин
Регистрация: 28.03.2008
Сообщений: 940
|
{.. удалено автором ..}
|
09.03.2010, 21:18 | #9 |
Пользователь
Регистрация: 07.03.2010
Сообщений: 45
|
удалю, если скажете-как удалять темы.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
procedure Delete | REztor | Помощь студентам | 6 | 10.03.2009 21:47 |
Procedure unknown | yulia | БД в Delphi | 9 | 26.01.2009 01:33 |
Проблемма с object, procedure | AngelOfDeath | Общие вопросы Delphi | 2 | 20.08.2008 15:08 |
procedure! please! help! | NeAlSe | Помощь студентам | 2 | 15.06.2008 15:38 |
function procedure | Toxa | Microsoft Office Access | 1 | 28.11.2007 18:32 |