Главная страница
    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.44 MB
Время: 0.003 c
1-75605
Dmitriy_R
2002-01-04 20:15
2002.01.24
Помогите разобратся с Hintami


14-75649
Потерянный
2001-11-27 15:28
2002.01.24
Попробую здесь


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


3-75511
NikoM
2001-12-21 05:15
2002.01.24
DBEdit


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





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский