Как сделать кросворд??

[SanSanblch]

Леди и джентльмены,дамы и господа,пацаны и девушки, хлопцы и девахи !!!!
Помогите!!!
НА ЭВМ дали задания построить кроссворд в Delphi. Не могу придумать как и что сделать !!
Помогите с формой не с кодом, а с формой(как и что расположить)..
Просьба предложения с размещением 20 Label однгог Edita не катят!!

[pu4koff]

DrawGrid. Если в ячейке предполагается ввод буквы, то заливаем её белым цветом и разрешаем выделять ячейку. Иначе - заливаем черным и запрещаем её выделение. Вешаем обработчик на KeyPress и вводим в выделенную ячейку соответствующий символ, т.к. в ячейке может быть только один символ, то Edit тут ни к чему.

[SNUPY]

С левого бока ScroollBox в нем динамически создаються Label'ы c вопросами. В снизу же по ScrollBox типа кнопка проверить ^_^. А сам кроссворд я бы создал при помощи массива Edit'ов.
ЗЫ Возможно мой вариант не самый простой ^_^

[KORN]

по моему DrawGrid очень удобная вещь... и вопросы можно размещать в ListView...

[DeKot]

Можно создавать все на канве.К примеру у Вас есть такой кроссворд :

Объявляете массив

mas: array[0..9,0..9] of byte =
          ((1,2,20,3,20,0,4,5,20,6),
           (0,20,0,20,0,7,0,20,0,20),
            //............  и т. д.

Здесь 0 - соответствует черной клетке, 20 - пустая (белая клетка), а остальные цифры соответствуют условиям кроссворда по гориз. и верт.
Далее в цикле по значениям массива строите кроссворд.А условия можно занести в Memo.

[DeKot]

Вот код (для простоты 5 х 5 клеток наобум)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  x,y: integer;
  mas: array[0..4,0..4] of byte =
       ((1,2,20,3,0),
        (20,20,0,20,4),
        (20,5,6,20,20),
        (0,20,20,0,0),
        (7,20,0,0,20));


implementation

{$R *.dfm}



procedure TForm1.FormPaint(Sender: TObject);
VAR
  i,j: byte;
begin
  Form1.Canvas.Font.Size:= 12;
  Form1.Canvas.Font.Style:= [fsBold];
  Form1.Canvas.Brush.Color:= clWhite;
  for i:= 0 to 4 do
  begin
    for j:= 0 to 4 do
    begin
      if mas[i,j] = 20 then
         Form1.Canvas.Rectangle(100+40*j,100+40*i,(100+40*j)+40,(100+40*i)+40);
      if mas[i,j] = 0 then
      begin
        Form1.Canvas.Brush.Color:= clBlack;
        Form1.Canvas.Rectangle(100+40*j,100+40*i,(100+40*j)+40,(100+40*i)+40);
        Form1.Canvas.Brush.Color:= clWhite;
      end;
      if (mas[i,j] > 0) and (mas[i,j] < 17) then
      begin
        Form1.Canvas.Rectangle(100+40*j,100+40*i,(100+40*j)+40,(100+40*i)+40);
        Form1.Canvas.TextOut((100+40*j)+2,(100+40*i)+2,IntToStr(mas[i,j]));
      end;
    end;
  end;
end;

end.

По приведенному коду получится примерно следующее:

[SanSanblch]

DeKot да ты крут !!! Большое спасибо буду развивать твою тему!!!!!!!

[SanSanblch]

Только один вопрос ??
1. А как ответ на кроссворд вводить ????

[pu4koff]

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

Только один вопрос ??
1. А как ответ на кроссворд вводить ????

Дописывать код до своей реализации DrawGrid'а )

[DeKot]

Я бы приблизительно так делал - по мыши определял клетку,фиксировал там какай либо курсор( можно чтобы фон подмигивал), по KeyPress TextOut - ом вводил бы буквы.Добавить перемещение по клеткам клавишами управления курсором и т.д.Это как вариант.Конечно,кажется, что применение стандартных компонентов (Grid,Edit ...) ,более рационально.Но как по мне - уж слишком сухо.Работая на канве можно из кросворда сделать картинку,которая будет завлекать юзера.
Просто кроссворд можно и в газете почитать.