Hola.
Cita:
(perdón si no está totalmente dentro del hilo la pregunta...)
|
En realidad lo que corresponde es que habras un nuevo hilo para una nueva pregunta, está claramente expuesto en el punto
8 de la
guía de estilo .
No entiendo muy bién la situación, pero una posible solución es crear una variable privada al form de tipo
TNotifyEvent, a la que asígnes el evento que querés recuperar luego, asignes el nuevo envento y luego al salir del form lo restaures:
Código Delphi
[-]
...
type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormShow(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
private
FNotifyEvent: TNotifyEvent;
public
end;
...
implementation
...
procedure TForm1.FormShow(Sender: TObject);
begin
FNotifyEvent:= TreeView1Click; end;
procedure TForm1.TreeView1Click(Sender: TObject);
begin
end;
...
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TreeView1.OnClick:= FNotifyEvent; end;
Saludos.