Как задать переменную?

[SW00001]

Есть кнопки им нужно задать переменную чтобы при нажатие на них во фрейм переходило значение этой кнопки
я попробывал сделать так
Код двух кнопок

procedure TForm1.Frame32Button2Click(Sender: TObject);
var
i:integer;
begin
Frame32.Button1.Show;
Frame61.Visible:=True;
Frame32.Button2.Hide;
i:=1;
end;

procedure TForm1.Frame32Button4Click(Sender: TObject);
var
i:integer;
begin
Frame32.Button3.Show;
Frame61.Visible:=True;
Frame32.Button4.Hide;
i:=2;
end;

и код фрейма

procedure TForm1.Frame61Click(Sender: TObject);
begin
if i=1 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource1;
if i=2 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource2;
end;

Как правельно задать переменную чтобы фрейм открывал данные по нажатию кнопки?
P.S.Добавил Програмку
Если ктото найдёт ошибку почему переменные не воспринимает, подскажите как исправить.
Специальность - Курс - Группу(кнопка №1-2)
Соединения в DataModule5

[superedward]

А такой вариант не подходит:

procedure TForm1.Frame32Button4Click(Sender: TObject);
begin
 Frame32.Button3.Show;
 Frame61.Visible:=True;
 Frame61.OnClick:=Frame61Click;
 Frame32.Button4.Hide;
end;

[SW00001]

Сообщение от superedward

А такой вариант не подходит:

procedure TForm1.Frame32Button4Click(Sender: TObject);
begin
 Frame32.Button3.Show;
 Frame61.Visible:=True;
 Frame61.OnClick:=Frame61Click;
 Frame32.Button4.Hide;
end;

Нет такой не подходит т.к. там данные берутся из разных форм в БД, ещё у меня форма для заполнения этих данных есть, нужно тоже чтобы она по определённой переменной открывала нужную форму в БД...
Так что мне бы решить проблему с переменными...

[Yurk@]

как вариант

  Box.Enabled:=i in ['a','e','v'];
  btAdd.Enabled:=i in ['s','d','c'];
  btEdit.Enabled:=i in ['s','d','c'];
  btSave.Enabled:=i in ['a','e'];
  btCopy.Enabled:=i in ['e'];
  btDel.Enabled:=i in ['e','s','d','c'];
  cbType.Enabled:=i in ['a'];

[FaTaL]

Так у Вас i объявлена как локальная переменная. Объявите её глобально.

[SW00001]

Сообщение от FaTaL

Так у Вас i объявлена как локальная переменная. Объявите её глобально.

Как её обьявить глобально?
Если обьявить глобально то переменная из кнопки будет взаимодействовать с переменными во фрейме? Ну т.е. при нажатие кнопки1 или 2 во фрейме будет меняться значение i=1 или i=2?

[evg_m]

задавать нужно не переменную а свойство(property) у нужного объекта (фрейма).

1. добавляете к нужному фрейму (Tframe61) в разделе public свойство(property) myVarData

TFrame61 =....
...
public
  property myVarData: integer write SetMyVardata;
private
  procedure SetMyVarData(v: integer);
....
end;

2. пишете метод загрузки данных в зависимости от заданного варианта

procedure TFrame61.SetMyVarData(r: integer);
begin
......
end;

3. в нужных местах указываете нужный вам вариант данных.

frame61.myVarData:=1;

frame61.myVarData:=2;

[SW00001]

Это слишком сложно для меня)
Мне бы просто с переменными разобратся почему фрейм их невоспринимает.
А нельзя сделать так чтобы по нажатию кнопки переменная присуждалась фрему
например
По нажатию кнопки1
у которой i:=1 , это значение i присуждалось во фрейм61 в котором i:=0(пока не нажмёшь на кнопку) если кнопка нажата то значение будет такоеже как и в кнопки 1...
как вот это реализовать?

[evg_m]

это значение i присуждалось во фрейм61

Если просто установить некое значение i , то обявляем в нем (public) переменную i

Tframe61 =class...

public 
  i: integer;

end;

и задаем ее значение в нужном месте

Frame61.i:=1;

Frame61.i:=3;

И конечно не надо использовать для этого имя i а придумать какое нибудь другое myVarData к примеру.

Но вот теперь возникает вопрос а как бы указать Frame61 что ему после того как мы ЕМУ установили i=3 надо что-то делать. Для этого смотри предыдущий ответ.

[SW00001]

Это сложновато для меня.
Нельзя просто по простому чтобы если i:=1; в кнопке то

procedure TForm1.Frame61Click(Sender: TObject);
begin
if i=1 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource1;
if i=2 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource2;
end;

если i 1 ил 2 то открывалась именно та таблица которая коровой равна переменная I

P.S.У меня друг в том году точно также делал через переменные, ничё не мудрил...и у него всё получалось. Правдо сейчас у него неосталось исходника, и сам ничё непомнит как делал...Но делал чисто из переменных