hhuumm
Entao voce queria saber como subescrever os metodos Get e Set de uma
propriedade !!!
Mesmo assim vai um exemplo simples:
Abra um novo projeto e coloque 2 edit's e depois:
Declare:
property Nome : String read FNome write SetNome;
Metodo:
procedure TForm1.SetNome(const Value: String);
var
i : Integer;
s : String;
b : Boolean;
begin
s := '';
for i := 1 to Length(Value) do
begin
if i = 1 then
s := AnsiUpperCase(Value[i])
else
begin
if not b then
begin
if Value[i] = ' ' then
b := True;
s := s + Value[i];
end
else
begin
b := False;
s := s + AnsiUpperCase(Value[i]);
end;
end;
end;
FNome := S;
end;
Metodo Change do edit 1:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Nome := Edit1.Text;
Edit2.Text := Nome;
end;
Este e um exemplo simples facil e objetivo de como sub-escrever uma
propriedade.
Espero ter ajudado
Eduardo
EmbarcaDelphi escreveu:
>
>
> Colocar no objectinspector usa-se property em published, o que eu queria
> (e já está resolvido) era o procedimento do read write (a linha, o que
> colocar)...
> mas já resolvi.
>
> Grato
>
> Eduardo escreveu:
> >
> >
> > Se vc sabe colocar a propriedade no objectinspector qual e a sua
> > duvida ???
> >
> > .
> >
> >
>
>
