Главная страница
    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.76 MB
Время: 4.712 c
1-75539
Misha
2002-01-05 11:43
2002.01.24
HELP


7-75701
Alexei
2001-10-09 14:30
2002.01.24
Калькулятор


1-75594
Stix
2002-01-07 21:56
2002.01.24
Русский HELP по Delphi 6


3-75474
Kaster
2001-12-15 16:21
2002.01.24
Найденная запись стала первой в DBGrid е!


1-75588
Tuk
2002-01-03 19:42
2002.01.24
Мастера, подскажите, отчет не помещается по ширине на лист с альбомной ориентацией как его можно разарезать?





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