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

Вниз

Как из одного события вызвать другое?   Найти похожие ветки 

 
иван8511   (2006-11-13 12:12) [0]

Подскажите, пожалуйста,  как можно из одного события вызвать другое, например

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.Caption := "Привет"
 // а здесь вызвать
 //  procedure TForm1.Button2Click(Sender: TObject);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 label2.Caption := "Как дела?";
end;


 
KilkennyCat ©   (2006-11-13 12:15) [1]

> procedure TForm1.Button1Click(Sender: TObject);
> begin
> label1.Caption := "Привет"
> // а здесь вызвать
> Button2Click(Sender);
> end;


 
ЮЮ ©   (2006-11-13 12:18) [2]

Так и вызвать
 Button2Click(Button2);
 Button2Click(Button1); // пусть умают, что Button1 вызвал этот метод
 Button2Click(nil); // в этом методе Sender не используется, нечего его и указывать


 
иван8511   (2006-11-13 14:23) [3]

Перепробовал все варианты. Не работает.
Выдает одну и ту же ошибку - Missing operator or semicolon


 
Anatoly Podgoretsky ©   (2006-11-13 14:31) [4]

> иван8511  (13.11.2006 14:23:03)  [3]

А имя пробовал указать?

--


 
иван8511   (2006-11-13 14:44) [5]

Какое имя?


 
Amoeba ©   (2006-11-13 15:04) [6]


> иван8511   (13.11.06 14:23) [3]
> Перепробовал все варианты. Не работает.
> Выдает одну и ту же ошибку - Missing operator or semicolon

А теперь покажи честному народу свой код, на который ругается компилятор.


 
Плохиш ©   (2006-11-13 15:11) [7]


> А теперь покажи честному народу свой код

"честному народу" этот код как-то и неинтересен.

PS. В конце строки label1.Caption := "Привет" вообще-то точку с запятой ставить нужно. Вот что бывает, когда не зная броду суются в воду.


 
Anatoly Podgoretsky ©   (2006-11-13 15:19) [8]

> Плохиш ©   (13.11.06 15:11) [7]

Не интеревен, но зачем же нам гадать какой код у него там неправильный, так мы весь день будем гадать.


 
Плохиш ©   (2006-11-13 15:27) [9]


> Anatoly Podgoretsky ©   (13.11.06 15:19) [8]

Код он в [0] привёл, а ошибку в [3] ;-)


 
Плохиш ©   (2006-11-13 15:30) [10]

А вот мне не хватает функции "откатить до состояния перед появления голой задницы на клавиатуре".


 
Плохиш ©   (2006-11-13 15:31) [11]


> Плохиш ©   (13.11.06 15:30) [10]

Я не понял 8-O, была другая ветка в браузере открыта :-(


 
иван8511   (2006-11-13 16:35) [12]

Хи-хи-хи. Офигеть. Простите за глюк в моих мозгах... Действительно не хватает ";"   Спасибо.



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

Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.038 c
1-1161243455
pyJIoH
2006-10-19 11:37
2006.12.03
Выгрузка данных в XML. Создание файла TFileStream ом.


2-1163520338
ev
2006-11-14 19:05
2006.12.03
как записать в себя данные


15-1163598855
VICTOR_
2006-11-15 16:54
2006.12.03
Не запускается Host Application


4-1153410020
Alek_1
2006-07-20 19:40
2006.12.03
Как программно включить ActiveDesktop?


2-1163275753
vertal
2006-11-11 23:09
2006.12.03
отношение FindDialog к клавише Enter





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