Показать сообщение отдельно
  #2  
Старый 15.08.2007, 20:49
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Как перевести имя класса в строку:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=button1.ClassName;
end;

end.
__________________

Ответить с цитированием