Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Внизкак определить имя компонента вызвавшего событие Найти похожие ветки
← →
Yuriy (2002-04-06 18:24) [0]Есть некий код
.....
procedure ClickButton(Sender: TObject);
procedure TForm1.CreateMyButton(....);
var
MyButton: array of TButton;
implementation
procedure TForm1.CreateMyButton(....);
.........
begin
.........
SetLength(MyButton, i1 + 1);
for i1:= 0 to i2 do
begin
MyButton[i1] := TButton.Create(Application);
MyButton[i1].Parent := Form1;
MyButton[i1].OnClick := ClickButton;
.............
end
...........
end;
procedure ClickButton(Sender: TObject);
begin
...............
end;
end.
Т.е. создается динамический массив (скажем кнопок) и при нажатии на любую из них вызывается одна и таже процедура оброботки нажатия. Можно ли определить имя кнопки вызвавшей событие?
← →
MBo (2002-04-06 18:30) [1]по Sender
например так
is Sender is TButton
then S:=TButton(Sender).Name
только при создании кнопок имя задавай
← →
Anatoly Podgoretsky (2002-04-06 18:36) [2]Если Sender наследник от TComponent то .name
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c