[Janom]

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

Приведи-ка наглядный пример, пжлст. Дело в том, что эти StaticText'ы играют роль ячеек вариантов ответов:
a b c d
a b c d
.........
a b c d

Кликнув на одной из ячеек надо блокировать все остальные ячейки в этом ряду:

пжлст:

Код:

procedure TForm1.onMouseUpStaticx(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i:integer;
begin
for i:=0 to Panel1.ComponentCount-1 do
  begin
    if Panel1.Components[i].ClassType = TStaticText then
      if (TStaticText(Panel1.Components[i]).Top=TStaticText(Sender).Top) and
        (Panel1.Components[i].Name<>TStaticText(Sender).Name) then
            TStaticText(Panel1.Components[i]).Enabled:=False;
  end;
end;

Только в процедуре создания Статиков:

Код:

//Вместо: MyButtons[i,j].Parent := Self; Надо:
MyButtons[i,j].Parent := Panel1;