[Lazarus-es] destruir objecto

rnapoles en hlg.rimed.cu rnapoles en hlg.rimed.cu
Mie Jul 16 01:17:04 CEST 2008


Salu2 lista tengo el siguiente código en un TButton
pero al ejecutarlo lanza un excepción

procedure TForm1.Button1Click(Sender: TObject);
begin
  FreeAndNil(Sender);
end;

Sin embargo lo ejecuto en delphi y hace lo que espero

muchas gracias de antemano


-- 
Daría todo lo que se por la mitad de lo que ignoro


-- 
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
					Nodo Hlg.rimed.cu




More information about the Lazarus-es mailing list