Hola de nuevo.
He puesto en marcha los consejos de Julian pero me sigue dando fallo o error.
Este es todo el codigo fuente de la ventana hija. Ahí puesdes ver Julian, como he añadido la uses pero luego en el procedimiento no me funciona:
unit Codigo_Hija;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TVentana_Hija = class(TForm)
RE_Editor: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RE_EditorSelectionChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Ventana_Hija: TVentana_Hija;
implementation
uses Codigo_Principal;
{$R *.DFM}
procedure TVentana_Hija.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TVentana_Hija.RE_EditorSelectionChange(Sender: TObject);
begin
TPrincipal.TB_Negrita.Down := fsBold in RE_Editor.SelAttributes.Style;
end;
end.
Como puedes ver el procedimiento es el de cuando cambia la seleccion en el editor y según donde pongamos el cursor así nos cambie los botones de cursiva,negrita, etc.
El editor está en la ventana hija y todo el codigo es el que puedes ver aquí. Pero tengo que actuar desde este codigo sobre los componentes de la ventana principal.
TPrincipal es la ventana Principal, TB_Negrita es el boton negrita situado en la barra de herramientas que a su vez está situada en la ventana principal.
El error que da es : Method identifier expected.
Me falta algo por hacer? o ¿Estoy haciendo algo mal?
Gracias de nuevo.
|