begin
s:=Sender; { или так: s:=button2; }
ss:='tbutton'; { запишем имя типа кнопки в строк. переменную }
if s.ClassNameIs(ss) then showmessage('Кнопка!');
if (s is tbutton) then showmessage('Это кнопка типа "TButton" !')
else showmessage('Это "'+s.ClassName+'" !');
{ Можно так }
try (s as tbutton).caption:='Ok!!!'; except end;
{ Или так }
tbutton(s).caption:='Ok!!!';
{ Или вот-так, если свойство не "Protected" и не "Read-only" }
tcontrol(s).left:=300;
end;
ЛЕКЦИЯ 4
1. ТЕХНОЛОГИЯ ПЕРЕТАСКИВАНИЯ ОБЪЕКТОВ «DRAG & DROP»
Технология «Drag & Drop» («Перетащи и кинь») предназначается для перемещения (перетаскивания) данных из одних визуальных компонент в другие в процессе работы программы с помощью мыши. Данная технология делает интерфейс программы более удобным и быстрым и используется во многих системных и прикладных Windows-программах.
Технология «Drag & Drop» позволяет, например, копировать строку текста (пункт) из одного компонента формы «ListBox» в другой компонент «ListBox» или предложение из одного компонента «Memo» в другой компонент «Memo». Технология «Drag & Drop» позволяет перемещать данные из любого визуального компонента в любой другой визуальный компонент для любой формы текущего приложения. С окнами других приложений данная технология по умолчанию не работает.
Для перетаскивания данных из одних визуальных компонент в другие с помощью технологии «Drag & Drop» необходимо на этапе создания программы настроить компоненты на данную технологию и запрограммировать алгоритм их поведение при перетаскивании из (в) них данных.