| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Error [D5]

bit ©   (2002-01-06 10:38:00) 

Привет всем программерам! Помогите мне плиз в такой ситуации:
...
procedure DoSomething;
var
MyForm : TForm;

procedure MyClick (Sender : TObject);
begin
MyForm.Caption := "Hello"
end;
begin
MyForm := TForm.Create (Application);
with MyForm do
begin
Top := 30;
Left := 60;
Show;
OnClick := MyClick ; // В этом и проблема
end;
end;
...
Помогите, пожалуйста, как правильно объявить процедуру MyClick.
Заранее благодарен

---

Anatoly Podgoretsky   (2002-01-06 11:12:00) [1]

Добавить Type после interface и убрать procedure MyClick из DoSomething. В DoSomething OnClick := TForm1.MyClick;

Остальное смотри Mbo © (06.01.02 11:01)
Но обращать лучше
(Sender as TForm).Caption :=

---

Mbo   (2002-01-06 11:01:00) [2]

interface
tform1 = class...
procedure MyClick (Sender : TObject);

implementation
procedure TForm1.MyClick (Sender : TObject);
begin
...

---

bit   (2002-01-06 10:57:00) [3]

2Anatoly Podgoretsky
А можно примерчик плиз

---

Anatoly Podgoretsky   (2002-01-06 10:54:00) [4]

методом класса

---

Mbo   (2002-01-06 10:41:00) [5]

MyClick должно буть методом формы

---

Наверх