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

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

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

Присвоение процедуры [D7, XP]

Страницы: < 1 2
Adios © (2006-07-24 00:06:00)
function link(name:string):string;
begin
x:=x+1;
New:=Tlabel.Create(form1.ScrollBox);
New.Top:= 0;
New.Left:=0;
new.Align:=alTop;
new.Alignment:=taCenter;
new.Font.Size:=12;
new.Font.Name:='Uk_Arbat';
new.WordWrap:=true;
new.AutoSize:=true;
new.Transparent:=true;
new.Cursor:=crHandPoint;
New.Name:='label'+inttostr(x);
new.Caption:=SearchRec.name;
new.OnClick:=ClickLabel;
New.Parent:=form1.ScrollBox;
end;

Procedure tform1.ClickLabel( Sender : TObject );
begin
showmessage(TControl(Sender).name);
end;

вопрос:
почему созданые лабелы не реагируют на событие ClickLabel?
а если написать form1.onclick:=ClickLabel;
то реакция при нажатии на форму есть?

Footballer (2006-07-24 00:31:00) [21]
Да, действительно, код не компилится, приведи код по-подробнее...
Примечание вместо x:=x+1 правильнее писать inc(x) (Увеличивает переменную на 1)

Джо (2006-07-24 00:21:00) [22]
Ошибка, возможно, где-то в другом месте кода или в неверном использовании приведенного. Кстати, именно приведенный код даже не скомпилируется. И он довольно небрежен. Из-за этого тоже может возникнуть ошибочная ситуация. Например, использование ссылки на глоб. переменную form1. Но, пока нет РЕАЛЬНОГО кода судить не о чем, ИМХО.

Adios (2006-07-24 00:20:00) [23]
так ведь реакция на событие онклик у Тлабела есть, может я сам чтото накосячил?

KilkennyCat (2006-07-24 00:16:00) [24]
Родитель строгий, наверное...

Страницы: < 1 2

Наверх

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