Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
1-75548
Анатолий
2002-01-03 05:42
2002.01.24
Отчёт в Delphi


3-75521
Alexandr
2001-12-21 10:44
2002.01.24
Печать ценников


3-75505
alextov
2001-12-17 19:38
2002.01.24
Record was changed by another user


1-75602
~Alice~
2002-01-07 20:48
2002.01.24
тут еще вопрос про написание сервисов для nt


1-75620
EViruS
2002-01-01 11:26
2002.01.24
Ищу компонент Delphi 6





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский