Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Вниз

добавить свойство к форме   Найти похожие ветки 

← →
Саша   (2002-04-24 10:38) [0]

Подскажите пожалуйста, как можно у формы сделать новое свойство для примера integer для хранения там чего либо. Спасибо.

---

← →
Song   (2002-04-24 10:42) [1]

Создайте новый клон от TForm и включите туда Ваше свойство

---

← →
gek   (2002-04-24 10:49) [2]

Да может и не надо клон создавать

В обычной форме пишем

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:="========"

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c