Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

Error   Найти похожие ветки 

 
bit   (2002-01-06 10:38) [0]

Привет всем программерам! Помогите мне плиз в такой ситуации:
...
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.
Заранее благодарен


 
Mbo ©   (2002-01-06 10:41) [1]

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


 
Anatoly Podgoretsky ©   (2002-01-06 10:54) [2]

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


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

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


 
Mbo ©   (2002-01-06 11:01) [4]

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

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



 
Anatoly Podgoretsky ©   (2002-01-06 11:12) [5]

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

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-75671
Дремучий
2001-11-26 22:33
2002.01.24
Требования к баннерам ....


1-75608
Трынкин Сергей
2002-01-08 10:52
2002.01.24
Подскажите пожалуйста где взять ADOExpress Update Pack 1


7-75696
Алексей Саньков
2001-10-05 21:55
2002.01.24
Как сделать в Винде 256 цветов 640х480 на видюхе Acumos


1-75616
Lotus
2002-01-05 17:33
2002.01.24
Нужно интерпретировать математические выражения


1-75600
ripp
2002-01-07 09:08
2002.01.24
Проблема вот в чем