Editor de texto se tilda

[Nicolas_2011]

si lo se amigo, perdon como dije se me fue el dedo, disculpas

[Casimiro Noteví]

Has sido más rápido que yo en borrar mi mensaje

[ecfisa]

Hola Nicolás.

Estuve mirando el código e indudablemente el por qué de ese comportamiento se encuentra en el evento OnActivate, más exáctamente en este código:

Código Delphi [-]
 ...
   // contar palabras
    for I := 1 to Length(RichEdit1.Text) do
      if pos(RichEdit1.Text[i],'')> 0 then
        Inc(c);
    barradeestado.Panels[2].Text:= IntToStr(c);
    // contar caracteres
    barradeestado.Panels[3].Text := 'Letras: '+ IntToStr(NroCaracteres(RichEdit1));
  ...

Esas dos, no són taréas rápidas si se trata con archivos muy grandes.

Para probar lo que te comento, sólo encerra entre llaves las líneas como en el siguiente codigo y ejecutalo:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  i: Integer;
begin
  barradeestado.Panels[0].Text := Format('Fila: %d Columna: %d',
    [RichEdit1.CaretPos.y+1, RichEdit1.CaretPos.X+1]);
 //lineas
  barradeestado.Panels[1].Text :=  IntToStr(RichEdit1.Lines.Count);
 {
  // contar palabras
  for I := 1 to Length(RichEdit1.Text) do
    if pos(RichEdit1.Text[i],'')> 0 then
      Inc(c);
  barradeestado.Panels[2].Text:= IntToStr(c);
  // contar caracteres
  barradeestado.Panels[3].Text := 'Letras: '+ IntToStr(NroCaracteres(RichEdit1));
  }
end;

Saludos.

[Nicolas_2011]

Muy bien ahora lo pruebo, una pregunta mas, pregunto esto porque no tengo idea ya que nuestro profesor no nos explico tdavia estos comportamientos, si reviste el codigo habras visto que en el items NUEVO se ejecuta un mensaje si desea guardar el archivo.. etc etc. ahora como hago ese evento pero si se preciona el boton cerrar.. el de windows no se como se llama jaja la X de la parte superior derecha..

[ecfisa]

Hola.

Para cerrar el form sólo es necesario llamar al procedimiento Close del mismo:

Código Delphi [-]
procedure TForm1.btnCerrarClick(Sender: TObject);
begin
  Close;
end;

Saludos.

[Nicolas_2011]

Gracias =D