|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.05.2011, 14:11 | #1 |
Регистрация: 13.02.2011
Сообщений: 5
|
Очистка richedit при переходе с него на другую вкладку
Подскажите как осуществить очистку richedit'а при переходе с него на другую вкладку(по нажатию кнопки)
|
04.05.2011, 14:26 | #2 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
Код:
|
04.05.2011, 14:38 | #3 |
Регистрация: 13.02.2011
Сообщений: 5
|
не помогает,всё равно повторно кликаю на кнопку и текст из richedit не удаляется
|
04.05.2011, 14:45 | #4 | ||
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Цитата:
Цитата:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
||
04.05.2011, 14:57 | #5 |
Регистрация: 13.02.2011
Сообщений: 5
|
var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin richedit1.lines.LoadFromFile(opendi alog1.FileName); end; procedure TForm1.BitBtn7Click(Sender: TObject); begin richedit3.Lines.LoadFromFile(opendi alog3.filename); end; procedure TForm1.BitBtn8Click(Sender: TObject); begin richedit3.Lines.LoadFromFile(opendi alog4.FileName); end; procedure TForm1.BitBtn9Click(Sender: TObject); begin richedit3.Lines.LoadFromFile(opendi alog5.FileName); end; procedure TForm1.BitBtn10Click(Sender: TObject); begin richedit3.Lines.LoadFromFile(opendi alog6.FileName); end; procedure TForm1.BitBtn11Click(Sender: TObject); begin richedit3.Lines.LoadFromFile(opendi alog7.FileName); end; procedure TForm1.BitBtn13Click(Sender: TObject); begin richedit2.Lines.LoadFromFile(opendi alog8.FileName); end; procedure TForm1.BitBtn12Click(Sender: TObject); begin richedit2.Lines.LoadFromFile(opendi alog9.FileName); end; procedure TForm1.BitBtn14Click(Sender: TObject); begin richedit2.Lines.LoadFromFile(opendi alog2.FileName); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin pagecontrol1.Visible:=false; panel2.Visible:=true; panel3.Visible:=true; panel4.Visible:=false; end; procedure TForm1.BitBtn15Click(Sender: TObject); begin pagecontrol1.Visible:=true; pagecontrol1.ActivePageIndex:=0; richedit3.Clear; panel2.Visible:=false; panel3.Visible:=false; panel4.Visible:=false; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin richedit5.Lines.LoadFromFile(opendi alog10.FileName); pagecontrol1.Visible:=false; panel2.Visible:=false; panel3.Visible:=true; label5.Visible:=true; panel4.Visible:=false; label5.Caption:='Немного из истории'; image10.Visible:=false; image11.Visible:=false; image12.Visible:=false; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin panel4.Visible:=false; panel2.Visible:=false; panel3.Visible:=true; label5.Caption:='Воспитательная работа'; richedit5.Lines.LoadFromFile(opendi alog11.FileName); image10.Visible:=false; image11.Visible:=false; image12.Visible:=false; pagecontrol1.Visible:=false; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin panel4.Visible:=false; panel2.Visible:=false; panel3.Visible:=true; label5.Caption:='Физическое воспитание'; image10.Visible:=true; image11.Visible:=true; image12.Visible:=true; richedit5.Lines.LoadFromFile(opendi alog12.FileName); pagecontrol1.Visible:=false; end; procedure TForm1.BitBtn6Click(Sender: TObject); begin panel2.Visible:=false; panel3.Visible:=false; panel4.Visible:=true; panel4.Height:=497; panel4.Width:=1105; richedit6.Left:=232; richedit6.Top:=64; richedit6.Height:=425; richedit6.Width:=769; Label6.Caption:='Дневное отделение'; pagecontrol1.Visible:=false; end; procedure TForm1.Timer1Timer(Sender: TObject); var T:TDateTime; begin T:=Time; Label7.Caption:=TimeToStr(T); end; procedure TForm1.BitBtn17Click(Sender: TObject); begin richedit6.Clear; panel2.Visible:=false; panel3.Visible:=false; panel4.Visible:=true; panel4.Height:=497; panel4.Width:=1105; richedit6.Left:=232; richedit6.Top:=64; richedit6.Height:=425; richedit6.Width:=769; Label6.Caption:='План работы старостата'; richedit6.Lines.LoadFromFile(opendi alog13.FileName); pagecontrol1.Visible:=false; end; end. Эт прога-мой курсач(тема:Автоматизированный информационный стенд о колледже) и на этом richedit всё стопориться,строго за код не судите я в delphi всего пару месяцев,выслушаю любые полезные советы |
04.05.2011, 15:21 | #6 |
Пользователь
Регистрация: 11.11.2008
Сообщений: 32
|
У тебя очищается только 2ой и 6ой RichEdit... может ты запутался в них? какой из них должен очищаться, а не очищается?
|
04.05.2011, 19:10 | #7 |
Регистрация: 13.02.2011
Сообщений: 5
|
после перехода с любой панели на другую,richedit на котором я был должен очиститься,вот..
|
04.05.2011, 19:33 | #8 |
Форумчанин
Регистрация: 27.09.2010
Сообщений: 376
|
Здравствуйте
Попробуйте повесить очистку необходимого RichEdit на событие OnExit. До свидания |
04.05.2011, 20:03 | #9 | |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Цитата:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выбор в листе при переходе | Ghennadiy | PHP | 25 | 25.12.2010 13:30 |
Ошибки при переходе с ListBox на ListView | Shouldercannon | Общие вопросы Delphi | 12 | 21.03.2009 10:03 |
Точность при переходе от миллиметров к пунктам | viter.alex | Microsoft Office Word | 2 | 03.02.2009 16:36 |
Смена кодировки названия открываемого файла в адресной строке при переходе на него по ссылки | Adamant | HTML и CSS | 1 | 08.02.2008 18:51 |
Refresh при переходе на страницу | nikleb | JavaScript, Ajax | 8 | 20.12.2007 18:24 |