Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.023 c
7-52678           Andey                 2001-09-27 19:55  2002.01.17  
Определение номера


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


14-52639          Дремучий              2001-11-21 22:45  2002.01.17  
Господа, личные лoготипы (гербы/эмблемы) имеются?


3-52461           Yuvich                2001-12-14 12:07  2002.01.17  
Кому интересен полнотекстовый поиск в Oracle


3-52456           ЧП                    2001-12-13 15:32  2002.01.17  
Мужики у кого есть FR_class.pas для FastReport 2.45 под Delphi 6