Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из одного события вызвать другое? [D6, XP]

иван8511 © (2006-11-13 12:12:00)
Подскажите, пожалуйста, как можно из одного события вызвать другое, например

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

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

иван8511 (2006-11-13 16:35:00) [1]
Хи-хи-хи. Офигеть. Простите за глюк в моих мозгах... Действительно не хватает ';' Спасибо.

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

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

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

Плохиш (2006-11-13 15:30:00) [3]
А вот мне не хватает функции "откатить до состояния перед появления голой задницы на клавиатуре".

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

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

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

Anatoly Podgoretsky (2006-11-13 15:19:00) [5]
> Плохиш © (13.11.06 15:11) [7]

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

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

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

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

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

Amoeba (2006-11-13 15:04:00) [7]

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

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

иван8511 (2006-11-13 14:44:00) [8]
Какое имя?

Anatoly Podgoretsky (2006-11-13 14:31:00) [9]
> иван8511 (13.11.2006 14:23:03) [3]

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

--

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

ЮЮ (2006-11-13 12:18:00) [11]
Так и вызвать
Button2Click(Button2);
Button2Click(Button1); // пусть умают, что Button1 вызвал этот метод
Button2Click(nil); // в этом методе Sender не используется, нечего его и указывать

KilkennyCat (2006-11-13 12:15:00) [12]
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> label1.Caption := 'Привет'
> // а здесь вызвать
> Button2Click(Sender);
> end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »