Указатели и TButton

[Katus]

Не могу понять в чем прогблема... Не исчезают кнопки после нажатия.... Помогите пожалуйста... осталось 3 дня)...

var
  Form1: TForm1;
  LastPos: byte;
  LastKey: ^boolean;
  Area: array [1..100] of boolean;

implementation

{$R *.dfm}

procedure TForm1.MyKey1Click(Sender: TObject);
var
  i,j: byte;
begin
  if LastPos > 0 then
    if not Area[1] then begin
      i:= 1 div 10;
      j:= 1 mod 10;
      if ( abs ( LastPos div 10 - i ) = 1 ) and ( abs ( LastPos mod 10 - j ) = 2 ) or
        ( abs ( LastPos div 10 - i ) = 2 ) and ( abs ( LastPos mod 10 - j ) = 1 ) then begin
        MyKey1.Font.Color:=$FF0000;
        LastKey^:=False;
        LastKey:=Nil;
        LastKey:=@(MyKey1.Visible);
        LastPos:=1;
        Area[1]:=True;
      end else
        ShowMessage('Ñþäû íåëüçÿ òûêàòü. Íå ïî ïðàâèëàì ^_^');
    end else
      ShowMessage('À ñþäû Âû, Óâàæàåìûé, óæå òûêàëè')
  else begin
    MyKey1.Font.COlor:=$FF0000;
    LastKey:=@(MyKey1.Visible);
    LastPos:=1;
    Area[1]:=True
  end;
end;

Элементов MyKey от 1 до 100 типa TButton

[Hacker19_90]

хм.... ну вот

LastKey^:=False;
        LastKey:=Nil;
        LastKey:=@(MyKey1.Visible);

При первом нажатии может и непропадёт
Но при повторном...
Если адрес LastKey не изменился то присвоится занчени false!

[Katus]

Это не то.... Извините за некорректную картину... Я имел в виду, что должна исчезать предыдущая нажатая кнопка... Вынес себе мозг за седня так, что забываю писать слова некоторые,

[Hacker19_90]

Я имел в виду, что должна исчезать предыдущая нажатая кнопка...

Эсли это весь код, то никакая предыдущая нажатая кнопка не исчезнет в принципе
потому что в привидёном коде вы работаете только с адресом MyKey1.Visible
Да и вообще не совсем понятен ваш алгоритм, помоему подход не тот!

[Katus]

Нет... Это не весь код... это та часть которая повторяется.... частично....

ниже приведен более полный код.... Всего таких процедур 100

procedure TForm1.MyKey1Click(Sender: TObject);
var
  i,j: byte;
begin
  if LastPos > 0 then
    if not Area[1] then begin
      i:= 1 div 10;
      j:= 1 mod 10;
      if ( abs ( LastPos div 10 - i ) = 1 ) and ( abs ( LastPos mod 10 - j ) = 2 ) or
        ( abs ( LastPos div 10 - i ) = 2 ) and ( abs ( LastPos mod 10 - j ) = 1 ) then begin
        MyKey1.Font.Color:=$FF0000;
        LastKey^:=False;
        LastKey:=Nil;
        LastKey:=@(MyKey1.Visible);
        LastPos:=1;
        Area[1]:=True;
      end else
        ShowMessage('Ñþäû íåëüçÿ òûêàòü. Íå ïî ïðàâèëàì ^_^');
    end else
      ShowMessage('À ñþäû Âû, Óâàæàåìûé, óæå òûêàëè')
  else begin
    MyKey1.Font.COlor:=$FF0000;
    LastKey:=@(MyKey1.Visible);
    LastPos:=1;
    Area[1]:=True
  end;
end;

procedure TForm1.MyKey2Click(Sender: TObject);
var
  i,j: byte;
begin
  if LastPos > 0 then
    if not Area[2] then begin
      i:= 2 div 10;
      j:= 2 mod 10;
      if ( abs ( LastPos div 10 - i ) = 1 ) and ( abs ( LastPos mod 10 - j ) = 2 ) or
        ( abs ( LastPos div 10 - i ) = 2 ) and ( abs ( LastPos mod 10 - j ) = 1 ) then begin
        MyKey2.Font.Color:=$FF0000;
        LastKey^:=False;
        LastKey:=Nil;
        LastKey:=@(MyKey2.Visible);
        LastPos:=2;
        Area[2]:=True;
      end else
        ShowMessage('Ñþäû íåëüçÿ òûêàòü. Íå ïî ïðàâèëàì ^_^');
    end else
      ShowMessage('À ñþäû Âû, Óâàæàåìûé, óæå òûêàëè')
  else begin
    MyKey2.Font.COlor:=$FF0000;
    LastKey:=@(MyKey2.Visible);
    LastPos:=2;
    Area[2]:=True
  end;
end;

procedure TForm1.MyKey3Click(Sender: TObject);
var
  i,j: byte;
begin
  if LastPos > 0 then
    if not Area[3] then begin
      i:= 3 div 10;
      j:= 3 mod 10;
      if ( abs ( LastPos div 10 - i ) = 1 ) and ( abs ( LastPos mod 10 - j ) = 2 ) or
        ( abs ( LastPos div 10 - i ) = 2 ) and ( abs ( LastPos mod 10 - j ) = 1 ) then begin
        MyKey3.Font.Color:=$FF0000;
        LastKey^:=False;
        LastKey:=Nil;
        LastKey:=@(MyKey3.Visible);
        LastPos:=3;
        Area[3]:=True;
      end else
        ShowMessage('Ñþäû íåëüçÿ òûêàòü. Íå ïî ïðàâèëàì ^_^');
    end else
      ShowMessage('À ñþäû Âû, Óâàæàåìûé, óæå òûêàëè')
  else begin
    MyKey3.Font.COlor:=$FF0000;
    LastKey:=@(MyKey3.Visible);
    LastPos:=3;
    Area[3]:=True
  end;
end;

[Katus]

Алгоритм... Если нажата клавиша и все успешно выполнилось, то соответственно должен сохраниться адрес части этой кнопки, а именно "Видимости"...Тыкаем на след.кнопку, и если все тоже проходит успешно, то ДОЛЖНА( отркбиться кнопка, исчезнуть, а цвет тоже не меняется текущей стать красным (или синим... вроде красным..)...и так далее по цепочке

[=master=]

Всего таких процедур 100

атас... вам известно, что передается в параметре sender ?

[Katus]

безпонятия -_-

[Katus]

Только не говорите что адрес объекта с которого было "перенаправление" на процедуру.... -_-

[Katus]

> в качестве параметра Sender передается не ссылка на саму
> кнопку, а ссылка на ее владельца, т.е. форму, групбокс и
> т.п.

без понятия как это может быть связано с моей ситуацией...