Скачать: CL | DM;

О фреймах   Найти похожие ветки 

← →
Mikhalyov Dmitry   (2001-12-27 16:21) [0]

Такая штука: создаю фрейм и в нем объявляю глобальную переменную. Затем создаю 2 экземпляра фреймов на форме, и если передаю данные из формы через эту переменную или изменяю ее в одном из фреймов то результат вычислений изменяется сразу в обоих фреймах. Подскажите как быть???

---

← →
Иван Шихалев ©   (2001-12-27 17:08) [1]

Глобальная переменная одна на все приложение. Следует сделать ее полем или свойством фрейма.

---

← →
Mikh_Dmit   (2001-12-27 22:35) [2]

А если можно то чуть-чуть поподробнее, а то информации по фреймам очень мало, а очень хочется чтобы работало!!!

---

← →
Иван Шихалев ©   (2001-12-27 22:37) [3]

А причем тут информация по фреймам? И что именно поподробнее?

---

← →
Mikh_Dmit   (2001-12-28 22:19) [4]

HELP ME!!! Ну не получается ни полем ни свойством (я делаю как при использовании простой формы). Получается только если я создаю в каждой процедуре одинаковые локальные переменные и передаю их значения при помощи другого компонента(напр. TLabel).

---

← →
Иван Шихалев ©   (2001-12-28 22:20) [5]

Код в студию

---

← →
SergVlad ©   (2001-12-29 10:26) [6]

Ерунда.
Я активно пользуюсь фреймами, есть конечно особености, но в основном, все в порядке.
..
private
fIDL: integer;

published
property pIDL: integer read fIDL write fIDL;
..

Это ты имел в виду ?
Обращаться надо,естественно:
frame1.pIDL;
frame2.pIDL;

---

← →
Mikhalyov Dmitry   (2001-12-29 14:14) [7]

так все работает и у меня ( если целое значение ) но вот если хочу задать массив и заполнить его, то StackOverflow .Поскажите:
unit mas;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
function Getput(num: integer): string;
procedure Setput(num: integer; const Value: string);
private
property put[num:integer]:string read Getput write Setput;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.Getput(num: integer): string;
begin
Result:=put[num];
end;

procedure TForm1.Setput(num: integer; const Value: string);
begin
put[num]:=value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
setput(1,"0");
end;

end.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c