как сделать бронирования на Delphi

[Demckiy]

с одним Shape сделал (см. в прикркпленном файле)
нужно сделать так , когда клацнул по Shape4 он стал красным, еще раз клацнул он стал белым.
создан программно массив:
Shape:array [1..3] of TShape;
i:integer;

for i:=4 to 7 do
begin
Shape[i]:=TShape.Create(Self);
Shape[i].Name:='Shape'+IntToStr(i);
Shape[i].Top:=300;
Shape[i].Left:=i*100+50;
Shape[i].Width:=50;
Shape[i].Height:=50;
Shape[i].Parent:=Form1;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Кстати, у вас что - заглавных букв нету ?
Пишите нормальным русским языком, уважайте форумчан...

[Stilet]

Допиши:

Shape[i].OnMouseDown:=Shape1MouseDown;

А сам обработчик так:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if n=1 then begin
              n:=0;
                            TShape(Sender).Brush.Color:=clred; end else
             begin
             n:=1;

             TShape(Sender).Brush.Color:=clWhite; end;
end;

И мой тебе совет: Оформляй код читабельно. Твоя обфускация просто таки ужасна.

[Demckiy]

а что такое обфускация??
Я только начал разбераться в программировании... Возьму Ваш совет на заметку...
Спасибо за программный код...

[Stilet]

а что такое обфускация

А ты спроси у гугла.

[Demckiy]

Создана база данных на ACCESS, БД вовложении
таблица наз. mesta

kil_mest | status
1 | занято
2 | свободно
3 | занято
4 | свободно
5 | занято
6 | занято

нужно вывести такое самое количество "Shape" сколько kil_mest тоисть 6. Если статус занято то "Shape" должен быть красным, а если свободно то белым.
Пример
Если мы клацнули на 6 "Shape" то статус должен изменится из занятого на свободный и "Shape" должен стать белым.
Как ето программно сделать, используя ADO ...


Я не давно начал в это вникать... в делфи немного разобрался,вот теперь пытаюсь разобраться как работать с базой через ADO...
Извените за такой вопрос и просьбу...