Текущий архив: 2002.05.09;
Скачать: CL | DM;
Вниз
добавить свойство к форме Найти похожие ветки
← →
Саша (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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
