Bom... corrigindo meu codigo, onde se le
destructor TTeste.Destroy;
begin
if Assigned(FEndServs) then
FreeAndNil(FEndServs);
inherited Destroy;
end;
mudei para
destructor TTeste.Destroy;
begin
FEndServs.Free;
inherited Destroy;
end;
Parou o violacao.. mas... ao digitar algo no texto, dar OK, e voltar para
ver o texto aparece: *Cannot assign a TBitmap to a TStringList.*
Bom, agora sim nao sei o que pode ser... pois não mexo com TBitmap em lugar
nenhum no codigo... rsrsr
[]s
Fellipe H.
2008/12/2 Fellipe Henrique <[EMAIL PROTECTED]>
> amigos, tenho o seguinte componente feito por mim, pois bem, com a ajuda de
> um amigo, vi que o erro de excluir ele do form foi meu, já arrumei, agora
> está quase perfeito...
> o problema está no EnServs... no delphi aparece bonitinho, inclusive clico
> no (...) e abre a tela do stringlist numa boa... mudo o que tem lá...mas na
> hora do Ok, pronto.. Violação de acesso na rtlxxx.bpl...
>
> depois nao consigo mais abrir o EndServs....
>
> O que estou fazendo de errado?
>
>
> Obrigado desde já...
>
> Fonte do componente:
>
> type
> TTeste = class(TComponent)
> private
> FEndServs: TStringList;
> procedure SetEndServs(const Value: TStringList);
> protected
>
> public
> { Construtor do Componente }
> constructor Create(aOwner: TComponent); override;
> { Destroi o Componente }
> destructor Destroy; override;
>
> published
> property EndServs: TStringList read FEndServs write SetEndServs;
> end;
>
> procedure Register;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents('Samples', [TTeste]);
> end;
>
>
> { TTeste }
>
> constructor TTeste.Create(aOwner: TComponent);
> begin
> inherited;
> FEndServs := TStringList.Create;
> FEndServs.Text := 'Texto padrao';
> end;
>
> destructor TTeste.Destroy;
> begin
> if Assigned(FEndServs) then
> FreeAndNil(FEndServs);
> inherited Destroy;
> end;
>
>
> procedure TTeste.SetEndServs(const Value: TStringList);
> begin
> FEndServs := Value;
> end;
>
>
> --
> _________________________________
> T.·.F.·.A.·.
> Fellipe Henrique
> Blog: www.digitumsoft.com.br/blogs/fellipeh
>
> -------------------------------------------------------------------------------
> CAMPANHA POR UMA INTERNET SEGURA
> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
> mensagens use SEMPRE o "Cco" (cópia oculta).
> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
> que
> possam ser usadas por hackers.
> #######################################
>
--
_________________________________
T.·.F.·.A.·.
Fellipe Henrique
Blog: www.digitumsoft.com.br/blogs/fellipeh
-------------------------------------------------------------------------------
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o "Cco" (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
#######################################
[As partes desta mensagem que não continham texto foram removidas]
