FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
|
|
|