procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_return then
memo1.lines.add('Ваше имя '+edit1.text)
end;
Как создать диалог?
Всем привет! Значит я пытаюсь сделать программку каторая будет собирать данные польхователя...
Значит есть форма, на форме, в низу есть компонент Edit, а чуть выше Memo...
Значит когда форма создается Вылетает сообщение типа "Как тебя звать?" в memo...
и пользователь отвечает программе... вводя свое имя в Edit... и программа например запоминает это...
Значит вопрос : Как дождаться Ответа пользователя? Как лучше зделать это... посоветуйте пожалуйста...
Спасибо заранее!
Значит есть форма, на форме, в низу есть компонент Edit, а чуть выше Memo...
Значит когда форма создается Вылетает сообщение типа "Как тебя звать?" в memo...
и пользователь отвечает программе... вводя свое имя в Edit... и программа например запоминает это...
Значит вопрос : Как дождаться Ответа пользователя? Как лучше зделать это... посоветуйте пожалуйста...
Спасибо заранее!
Пусть юзер после ввода в edit нажмет Enter, тогда тебе надо обработать сообщение KeyDown для Edit'a.
Код:
Спасибо тебе Grienders, а как дальше продолжать задавать вопросы?
Например "Ты работаешь"? Я чета не врубаюсь пока...
Подскажите пожалуйста
Спасибо
Например "Ты работаешь"? Я чета не врубаюсь пока...
Подскажите пожалуйста
Спасибо
размещаешь весь опрос в цикл, когда выскакивает окно вся прога ждет пока оно исчезнет (т.е. пользователь введет данные)
А не легче создать одну форму со всеми вопросами?
