Очистка richedit при переходе с него на другую вкладку

[Artemgood]

Подскажите как осуществить очистку richedit'а при переходе с него на другую вкладку(по нажатию кнопки)

[java_91]

RichEdit1.Clear;
переход на другую вкладку

Надо что бы оно стояло перед переходом

[Artemgood]

не помогает,всё равно повторно кликаю на кнопку и текст из richedit не удаляется

[artemavd]

Надо что бы оно стояло перед переходом

Необязательно. Можно чтобы и после.

не помогает,всё равно повторно кликаю на кнопку и текст из richedit не удаляется

Чудеса прямо, быть такого не может. Покажи свой код-чудо, чтобы увидеть как это может не работать?

[Artemgood]

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 всего пару месяцев,выслушаю любые полезные советы

[java_91]

У тебя очищается только 2ой и 6ой RichEdit... может ты запутался в них? какой из них должен очищаться, а не очищается?

[Artemgood]

после перехода с любой панели на другую,richedit на котором я был должен очиститься,вот..

[OlegVE]

Здравствуйте
Попробуйте повесить очистку необходимого RichEdit на событие OnExit.
До свидания

[Человек_Борща]

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;

зачем столько опендиалогов? Можно же Run-time! Вот так:

function MyOpenFile: TFileName;
var
  OpenDlg: TOpenDialog;
begin
  OpenDlg := TopenDialog.Create(Application);
  try
    OpenDlg.Title := 'Выберите файл: ';
    OpenDlg.Filter := 'All Files|*.*';
    if OpenDlg.Execute then
    begin
      Result := OpenDlg.FileName;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;
end;