Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как мне из Memo сделать наподобие терминалки? [D7, WinXP]

MadGhost © (2005-01-28 22:51:00)
приветствую многоуважаемые гуру.
вопрос у меня возник следующий :( сам чет не могу решить, хотя попытки продолжаются.

вопрос в следующем.
на основе сокетов создал две формочки с Мемо, клиент цепляется к серверу отсылает скажем слово connect, сервер на это отсылает клиенту login: и ждет от него ввода логина, потом пароля. логин и пароль, и последующие команды надо вводить в Мемо, по другому получается не красиво увы :( как мне организовать сабж? т.е. ввести в мемо логин, нажать ентер, и чтобы обработчик ентер распознал что я ввел только что логин, т.е. получается какую то разность между предыдущим количеством символов в мемо и текущую, вырезает, и отсылает серверу.
Как установить курсор у мемо в конец, как определить длину мемо? ну и вообще соображения на эту тему, был бы признателен.

Knight (2005-01-29 19:53:00) [1]
Memo1.SelStart было большеStartCmdStr
// думаю, что все поняли, но на всякий случай... :)

Knight (2005-01-29 19:48:00) [2]
Ввесли переменную, типа, StartCmdStr и перед вводом новой команды присваивать ей значение Memo1.SelStart;
В KeyPress проверять алфавитные клавиши, в KeyDown - остальные, не забывая, проверять, чтобы Memo1.SelStart было меньше StartCmdStr.

При Key=13 брать команду, добавлять новую строку с приглашением, сбрасывать начальную позицию...

CMD:=Copy(Memo1.Lines.Text,CmdStartPos+1,Length(Memo1.Lines.Text)-CmdStartPos); Memo1.Lines.Append('TERM>'); CmdStartPos:=Memo1.SelStart; //Length(Memo1.Lines.Text);

Обязательно сделать Мемо чёрного цвета, а фонт - зелёным... :)

Anatoly Podgoretsky (2005-01-29 14:09:00) [3]
Что выводить? Не прояснишься?

GrayFace (2005-01-29 05:15:00) [4]
aus (29.01.05 4:43) [3]
Можно еще попробовать отслеживать нажатия клавишь, проще чем работа с мемо, на мой взгляд.
А выводить?

aus (2005-01-29 04:43:00) [5]
MadGhost © (29.01.05 2:28) [2]
А как понять фиксированая нижняя строка?

TEdit под TMemo.
Можно еще попробовать отслеживать нажатия клавишь, проще чем работа с мемо, на мой взгляд.

MadGhost (2005-01-29 02:28:00) [6]
ну в принципе то я уже сделал правда через заднее место :).
ну не знаю как вычислить длину memo кроме как
var stroka:String; size:Integer; begin stroka:=Memo1.Text; size:=Length(stroka); end;
в общем когда начиная ввод вычисляю длину Memo потом сравниваю после ввода, вычитаю, через Copy в отдельную переменную вот как бы и ввод получается, если длина не изменилась или стала меньше, ничего не делаю.

А как понять фиксированая нижняя строка?

palva (2005-01-29 01:32:00) [7]
Проще сделать, чтобы ввод осуществлялся в фиксированную нижнюю строку, а потом дублировался и скроллировался в мемо, как это сделано в FAR. Конечно, тогда нельзя ходить курсором по уже выполненным командам и нажимать на Ентер, как это можно делать в командном окне FoxPro, но зато не придется реализовывать сложную и непривычную логику обработки таких ентеров.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »