своя командная строка

[fanlis]

Здравствуйте. Во многих программах (играх) обычно при нажатии тильды (~) вылезает "панель", куда можно вводить команды и куда выводится отладочная информация. Типа командной строки виндовс.
Допустим есть Memo. Выводим туда значек ">". Пользователь что-то вводит и нажимает Enter. Строка остается,но уже без значка, а значок выводится в следующую строку.
Но в мемо можно перемещать курсор и писать в любом месте, а этого не нужно. Наоборот, при нажатии кнопок вверх и вниз в строке должны выводиться предыдущие введенные команды.
Вот что-то ничего в голову не приходит как такую фичу сделать.

[Аватар]

Сделай мемо только для чтения, под ним Edit для ввода. Из эдита команды копируй в мемо по нажатию Enter

[fanlis]

В принципе можно так сделать. Но все же интересно как это делается в играх и в самой cmd (именно то, что я описал). Кажется мне, что это не сложно и не нужно ничего изобретать. Может кто знает?

[kropotkina-alice]

Если решать в лоб, то:

var
  Form1: TForm1;
  lin: integer;

implementation

{$R *.dfm}

//это вместо нажатия тильды :)
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Visible:=True;
Memo1.Lines.Add('>');
lin:=Memo1.Lines.Count-1;
with Memo1 do
SelStart:=Perform(EM_LINEINDEX, lin, 0) + 1;
Memo1.SetFocus;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var pos: integer;
begin
if key=Chr(13) then
begin
Memo1.Visible:=False;
//и еще какие-то нужные действия
exit;
end;
pos:=Length(Memo1.Lines[lin]);
with Memo1 do
SelStart:=Perform(EM_LINEINDEX, lin, 0) + pos;
end;

end.

[fanlis]

Интересный подход. Действительно в лоб. Правда позволяет вводить символы только в конец строки.
При таком подходе нужно тогда сделать чтобы можно было вводить символы в середину строки (ну мало ли для исправления), и чтобы курсор не уходит с последней строки (заменить реакцию на нажатие кнопок вверх и вниз), а так же при установке курсора мышью.
Можно это как-то сделать?

[fanlis]

Ну в общем-то я сделал "в лоб", обрабатываю нажатие клавиш вверх, вниз, чтобы не пускать на другую строку, влево, home, home с шифтом, контролом, backspace чтобы не пускать левее символа приветствия (>) и не стирать его, так же всевозможные клики мышкой и т.д. Но это все громоздко, не красиво и все равно есть дыры (например, я не знаю как отловить нажатие и удержание кнопки клавиатуры).
Не самый изящный подход.
Тема остается открытой.

[DIONISKA]

В играх обычно пишется свой UI, который к VCL не имеет отношения. Впрочем что мешает самому всё отрисовывать? Прилепить сверху панель(окно как у меня), ловить ввод и рисовать. Например вроде такого: