![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#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. первое окно практически получилось,но мне надо вводить там текст,а не видить только тот который я указываю при присваивание,как это сделать? |
![]() |
![]() |
![]() |
#2 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]()
не понял ничего.
Как звучит оригинал задания? Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
![]()
Создать приложение, окно которого имеет три кнопки, по одной из которых вызывается одно окно, по второй - другое, по третьей - приложение закрывается. Содержимое вспомогательных окон указаны в вариан-тах:
Окно1 содержит строку ввода (Edit) и кнопку "ДА" для подтверждения ввода. Окно2 содержит поле Memo, в котором содержатся строки, введенные в Окне1. |
![]() |
![]() |
![]() |
#4 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]()
а Messagebox зачем?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
![]() |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 23.04.2016
Сообщений: 45
|
![]() |
![]() |
![]() |
![]() |
#7 | ||
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]() Цитата:
Цитата:
не молодец. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
||
![]() |
![]() |
![]() |
#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. где сейф файл выделяет строку,мол не правильно,че там? если бы я хоть что-то знал,может и был бы молодцом) |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 31.05.2010
Сообщений: 13,543
|
![]()
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder |
![]() |
![]() |
![]() |
#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 |