Управлять свойствами контролов, созданных Run Time

[Рик]

Здравствуйте. Программно создается массив StaticText'ов

private
    { Private declarations }
    procedure onMouseUpStaticx(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
//...........................................................................
var
  Form1: TForm1;
   CurDispatch: IDispatch; {save the interface globally }
   MyButtons:array of array of TStaticText;
   timeLim: integer; // time limit of test
   qCount:integer;   // amount of questions
   testName:string;  // test's file name
   testFile:file;    // test file

   ansArr:array of integer;
//.....................................................
//.....................................................
procedure TForm1.btnSetQuestionsClick(Sender: TObject);
 var i, j,x: byte;
 n,k: integer;
 count:String;
begin
count:=inputbox('Test','Enter amount of questions','1');
try
n := StrToInt(count);
qCount:=n;
except
on EConvertError do ShowMessage('Someting is wrong');
end;
setlength(Mybuttons,n,4);
setlength(ansArr,n);
k:=0;
 for i:=0 to n-1 do
  for j:=0 to 3 do begin
   inc(k);
   MyButtons[i,j]:=TStaticText.Create(Panel1);
   MyButtons[i,j].Parent := self;
   MyButtons[i,j].Top:= ((i+1)*25)+33;//((i+1)-1)*Arr3[i,j].Height+50;
   MyButtons[i,j].Left:=((j+1)*20)+830;//((j+1)-1)*Arr3[i,j].Width+800;
   MyButtons[i,j].BorderStyle :=sbsSunken;
   MyButtons[i,j].AutoSize :=false;
   MyButtons[i,j].Alignment := taCenter;
   MyButtons[i,j].Width:=20;
   MyButtons[i,j].Height:=20;
   MyButtons[i,j].Color :=clLime;
   MyButtons[i,j].Tag:=k; 
   MyButtons[i,j].Caption :=IntToStr (k);
   MyButtons[i,j].Font.Size:=10;
   MyButtons[i,j].Name := 'Btn'+intToStr(k);
   TStaticText(MyButtons[i,j]).onMouseUp:=onMouseUpStaticx; {new components event}
end;
 for i:=0 to n-1 do
   for j:=0 to 0  do begin
    MyButtons[i,j].Caption :='a';
end;
for i:=0 to n-1 do
   for j:=1 to 1  do begin
    MyButtons[i,j].Caption :='b';
end;
for i:=0 to n-1 do
   for j:=2 to 2  do begin
    MyButtons[i,j].Caption :='c';
end;
for i:=0 to n-1 do
   for j:=3 to 3  do begin
    MyButtons[i,j].Caption :='d';
end;
end;
//.....................................................
procedure TForm1.onMouseUpStaticx(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// вот здесь все это должно происходить
end;
//..................................................................

А теперь вопрос: как мне управлять свойством Enabled StaticText'oв, чтобы при выборе одной из ячеек недоступными становились все ячейки в этом ряду( строке) Вернее как это реализовать?
Заранее благодарен

[evg_m]

как мне управлять свойством Enabled StaticText'oв

MyButtons:array of array of TStaticText;

MyButtons[1,2].enabled:=false;

[Рик]

и на том спасибо, а поконкретнее можно? То есть как я понимаю:

//.....................................................
procedure TForm1.onMouseUpStaticx(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i,j,: integer;
begin
// вот здесь все это должно происходить
for i:=i to i do
  for j:=  to 3 do begin do
     MyButtons[i,j].Enable:=False;
end;

но что-то не пашет(

[asmodey1]

Сообщение от Рик

но что-то не пашет(

Бред надобно убрать !

for i:=i to i do

[raxp]

вот так будет разумно...

MyButtons[i,j].onMouseUp:= onMouseUpStaticx;
...
procedure TForm1.onMouseUpStaticx(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 with (sender as TStaticText) do
   font.color:= font.color xor $8;
  //enabled:= not enabled
end;

на кой управлять свойством enabled для статического текста, если потом нельзя будет получить к нему доступ по нажатиям мыши, т.е. один раз сработает. К тому же, совсем не вижу смысла в управлении доступностью сразу всеми statictext при нажатии на один из них.

[Рик]

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

вот так будет разумно...

MyButtons[i,j].onMouseUp:= onMouseUpStaticx;
...
procedure TForm1.onMouseUpStaticx(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 with (sendes as TStaticText) do
   font.color:= font.color xor $8;
  //enabled:= not enabled
end;

на кой управлять свойством enabled для статического текста, если потом нельзя будет получить к нему доступ по нажатиям мыши, т.е. один раз сработает.

Они играют роль ячеек вариантов ответов:
a b c d
a b c d

[Рик]

Сообщение от Рик

Они играют роль ячеек вариантов ответов:
a b c d
a b c d

К тому доступность их будет определятся в зависимости от того какая кнопка мыши нажата, если левая, то не доступна, если правая от доступна

If button = mbLeft then
//...............................
if button =mbright then
//............................

[Рик]

Сообщение от Рик

К тому доступность их будет определятся в зависимости от того какая кнопка мыши нажата, если левая, то не доступна, если правая от доступна

If button = mbLeft then
//...............................
if button =mbright then
//............................

При клике на одной из ячеек должны блокироваться остальные ее "сородичи" из этого ряда. Вот как это реализовано в VB

[Рик]

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

Бред надобно убрать !

for i:=i to i do

опечатка, однако
я делал так:

for i:= 0 to qCount-1 do:

[Рик]

Тему можно закрывать.
Вместо MyButtons[i,j].Tag:=k; пишем MyButtons[i,j].Tag:=i;