Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

добавить свойство к форме


Саша ©   (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 и включите туда Ваше свойство


Наверх

Титульная страница Поиск, карта сайта Написать письмо