Ver Mensaje Individual
  #6  
Antiguo 12-04-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Según he mirado con el Grep Search, el windowposchanging lo implementa la clase TCustomForm y TToolbar, el Tedit nop.

Mira, llevo con este mensaje dándole vueltas más de media hora, no entiendo lo que quieres hacer ni como funciona el tema.

Desde mi punto de vista, el Form que contiene el TkEdit debería tener un evento llamado por ejemplo OnMoving y el tkEdit un procedimiento llamado DoOnParentMoving. Cuando Creas el Form, asignas el evento OnMoving y dentro podrás poner:
Código Delphi [-]
procedure TForm1.FormMoving(Sender:TObject);
begin 
  tkedit1.doOnParentMoving;
end;

Tampoco entiendo el diseño, ¿Por qué un descendiente de TEdit puede crear dos barras flotantes?

Lo normal sería que un Form tuviese dos propiedades :
HasHorziontalBar:Boolean;
HasVerticalBar:Boolean;

Cuando se pone alguna en True, el propio Form crearía la barra adosada.

Y esto lo digo porque:
- ¿que ocurre si pones tu Tkedit sobre un panel del Form? las barras aparecerían ¡¡ sobre el panel !!
- no piensas usar Frames ¿verdad? porque estarías en las mismas.

Edito: En realidad llevo más de 40 minutos, porque Al no había contestado antes de empezar a escribir esto

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita