![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
добавить свойство к форме
Саша © (2002-04-24 10:38:00)Подскажите пожалуйста, как можно у формы сделать новое свойство для примера integer для хранения там чего либо. Спасибо.
gek (2002-04-24 10:49:00) [1]Да может и не надо клон создавать
В обычной форме пишем
type
Tmy_form = class(TForm)
............
private
{ Private declarations }
procedure SetPortText(const value:string);
function GetPortText:string;
public
property PortText: string read GetPortText write SetPortText;
{ Public declarations }
end;
Ну и используем потом
procedure my_form.............
begin
caption:=PortText;
PortText:="========"
Song (2002-04-24 10:42:00) [2]Создайте новый клон от TForm и включите туда Ваше свойство