|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.05.2016, 16:31 | #1 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
Все тот же делфи....
procedure TForm1.Edit1Change(Sender: TObject);
var s:string; begin Edit1.Text:='..'; s:=Edit1.Text; Messagebox(handle,PChar(s),'Сохрани ть?',MB_ICONINFORMATION) end; end. Окно1 содержит строку ввода (Edit) и кнопку "ДА" для подтверждения ввода. Окно2 содержит поле Memo, в котором содержатся строки, введенные в Окне1. первое окно практически получилось,но мне надо вводить там текст,а не видить только тот который я указываю при присваивание,как это сделать? |
22.05.2016, 16:52 | #2 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
не понял ничего.
Как звучит оригинал задания? Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
22.05.2016, 16:54 | #3 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
Создать приложение, окно которого имеет три кнопки, по одной из которых вызывается одно окно, по второй - другое, по третьей - приложение закрывается. Содержимое вспомогательных окон указаны в вариан-тах:
Окно1 содержит строку ввода (Edit) и кнопку "ДА" для подтверждения ввода. Окно2 содержит поле Memo, в котором содержатся строки, введенные в Окне1. |
22.05.2016, 16:58 | #4 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
а Messagebox зачем?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
22.05.2016, 17:37 | #5 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
|
22.05.2016, 17:37 | #6 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
|
22.05.2016, 18:07 | #7 | ||
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Цитата:
не молодец. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
||
22.05.2016, 18:11 | #8 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
procedure TForm1.Edit1Change(Sender: TObject); var s:string; begin Edit1.Text:='..'; s:=Edit1.Text; end; procedure TForm1.Button1Click(Sender: TObject); begin If messagebox(handle,'Ñîõðàíèòü èçìåíåíèÿ?','Òðåáóåòñÿ ïîäòâåðæäåíèå', MB_YESNO)=ID_YES Then SaveFile(s); end; end. где сейф файл выделяет строку,мол не правильно,че там? если бы я хоть что-то знал,может и был бы молодцом) |
22.05.2016, 18:12 | #9 |
Старожил
Регистрация: 31.05.2010
Сообщений: 13,543
|
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder |
22.05.2016, 18:15 | #10 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Все тот же студент и известным все списком | pinkiller | Общие вопросы C/C++ | 6 | 05.01.2012 18:40 |
все тот же с++ | Александе еть я | Общие вопросы C/C++ | 0 | 27.04.2010 22:29 |
все тот же ассемблер | Александе еть я | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 5 | 31.03.2010 17:54 |
все тот же паскаль | werus | Помощь студентам | 2 | 20.04.2009 15:26 |
Все тот же Pascal | dinozavr | Помощь студентам | 6 | 19.04.2009 21:03 |