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

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

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

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

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

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

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

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

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