Главная страница

Форум: "Основная";
Поиск по всему сайту: 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];



Наверх

   Главная страница

Top.Mail.Ru     Яндекс.Метрика













Память: 0.76 MB
Время: 0.024 c
14-52662
Dima-k17
2001-11-23 09:56
2002.01.17
(1)Windows XP + (2)Delphi 5


14-52657
Polevi
2001-11-23 10:14
2002.01.17
Дежавю


3-52484
Александр_нн
2001-12-14 22:02
2002.01.17
Сохраниение графики в БД Oracle


1-52573
Lamok (real)
2001-12-28 23:23
2002.01.17
EStringlistError


1-52606
Yaro
2001-12-30 14:11
2002.01.17
TRegistry.SaveKey - ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский