Своя командная строка, как делают в играх. Пролистывание команд по кнопкам вверх и вниз

Posted by obzor under Delphi

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

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.

тема на форуме

Похожие статьи

• Взаимодействие через командную строку
• Подсчет символов в строке ШЕЛ
• Параметры командной строки
• Скрытая командная строка