Создаю стратегию.

[Beermonza]

А вот на FormKeyDown, я честно сказать, никогда не обращал внимания, как он там работает, теперь вижу, ...век живи, век учить, а все равно помрешь дураком )))

[Kostia]

Это - что касательно клавиатуры:

var
  keys: array[0..255]of boolean;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  keys[key]=true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  keys[key]=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if keys[VK_UP] then ... else
  if keys[VK_DOWN] then ...;
  if keys[VK_LEFT] then ... else
  if keys[VK_RIGHT] then ...;
end;

[Beermonza]

В программе есть function keypressed(key: byte): boolean; ...просто я переделывал пример и оставил как есть в FormKeyDown, посчитав код равноценным.

[lennon]

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

А можно зделать примерно как в морровинде(чтобы ты пока вертишь камеру у тя исчезали одни и подгружались другие)?

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

[Shadow_1329]

procedure ShowHint(text:string);//Процедура подсказок у которой в скаобках отображается текст который должен появиться в подсказке
begin
Hints.Canvas.TextOut(0,0,text);//Я создал битмап и на него отображаю текст
buf.Canvas.Draw(200,0,Hints);// Затем Рисую эту подсказку с текстом на экран
end;

ShowHint('Здесь пройти нельзя!');// Затем при определенном условии показываем подсказку с тем текстом в скобках который хоти написать

И он выдает ошибку типа пропущен оператор. Не понимаю. Вроде все сделал правильно. Можете помочь?

[Манжосов Денис :)]

ShowMessage стоит после end;
Так и должнло быть?

[Shadow_1329]

Не ShowMessage а ShowHint - это моя процедура. И она стоит не там где ты сказал. Она может стоять в любом месте где ты хочешь вызвать ее, а само описание стоит вначале всего кода. У меня вопрос в другом. Как исправить ошибу указанную выше.

[Shadow_1329]

Все понял в чем проблема была. Спасибо!=)

[Shadow_1329]

И еще. Если у меня слишком длинный текст и он вылазиет за рамки битмапа как его перенести на другую строчку, а не писать все на одной?

[Манжосов Денис :)]

Можно же вот так сделать

buf.Canvas.TextOut(0, 10, 'Текст');
buf.Canvas.TextOut(0, 30, 'Текст');