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




Вниз

О фреймах 


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.




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




Наверх





Память: 0.73 MB
Время: 0.026 c
3-52454           Анастасия             2001-12-13 18:51  2002.01.17  
Помогите, пожалуйста, срочно!!!


3-52472           JS                    2001-12-14 16:29  2002.01.17  
Memo-поле в IB


1-52572           Eraser                2001-12-29 00:19  2002.01.17  
Поле HELP


1-52582           Sym                   2001-12-19 16:06  2002.01.17  
Народ помогите!!!!!!!!!!!!!! За ранее СПАСИБО


3-52497           SibOpt                2001-12-08 14:06  2002.01.17  
Говорят есть комп-та TITAN для работы с базами DBT