Форум: "Основная";
Поиск по всему сайту: 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-52464           Laimer                2001-12-14 14:08  2002.01.17  
функция Cast


14-52647          gone                  2001-11-22 16:25  2002.01.17  
Киньте пару ссылок pls


3-52467           Grafr                 2001-12-14 06:25  2002.01.17  
Как искать в поле типа Memo без учета регистра


3-52470           Nest                  2001-12-14 15:20  2002.01.17  
Как запретить перемещение(cмену позиции) колонок в DBGRID, но разрешить Resize(изменять ширину)?


3-52503           Вит                   2001-12-15 16:35  2002.01.17  
Как разбить БД в InterBase на два файла?