Procurei mas não achei, mas creio que procurei errado, mas vamos la.....
Estou criando um TEdit com a cor no OnExit e OnEnter:
unit Texto;
interface
uses
SysUtils, Classes, Controls, StdCtrls, Graphics;
type
TTexto = class(TEdit)
private
OnEnterColor: TColor;
OnExitColor: TColor;
protected
Procedure ColocaCor(Sender: TObject);
Procedure RetiraCor(Sender: TObject);
Procedure ImportaCor(Value: TColor);
Procedure ExportaCor(Value: TColor);
public
Constructor Create(Aowner: TComponent);override;
published
property CorOnEnter: TColor read OnEnterColor
write ImportaCor;
property CorOnExit: TColor read OnExitColor
write ExportaCor;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Robinho', [TTexto]);
end;
procedure TTexto.ColocaCor(Sender: TObject);
begin
if Sender is TEdit then
begin
TEdit(Sender).Color := OnEnterColor;
end;
end;
constructor TTexto.Create(Aowner: TComponent);
begin
inherited;
OnEnterColor := clSkyBlue;
OnExitColor := clWindow;
OnEnter := ColocaCor;
OnExit := RetiraCor;
end;
procedure TTexto.ExportaCor(Value: TColor);
begin
OnExitColor := Value;
end;
procedure TTexto.ImportaCor(Value: TColor);
begin
OnEnterColor := Value;
end;
procedure TTexto.RetiraCor(Sender: TObject);
begin
if Sender is TEdit then
begin
TEdit(Sender).Color := OnExitColor;
end;
end;
end.
Mas queria colocar só mais uma propriedade nele, para que automaticamente já fica com o heigth com valor 20, mas ai que vem a duvida, estou querendo fazer isso para o TComboBox, TMemo, TCurrencyEdit, TDateEdit, mas ai eu tenho que fazer um por um....não posso fazer tudo nesse mesmo package ? e como posso fazer ?
Pergunta
robinhocne
Pessoal,
Procurei mas não achei, mas creio que procurei errado, mas vamos la.....
Estou criando um TEdit com a cor no OnExit e OnEnter:
unit Texto; interface uses SysUtils, Classes, Controls, StdCtrls, Graphics; type TTexto = class(TEdit) private OnEnterColor: TColor; OnExitColor: TColor; protected Procedure ColocaCor(Sender: TObject); Procedure RetiraCor(Sender: TObject); Procedure ImportaCor(Value: TColor); Procedure ExportaCor(Value: TColor); public Constructor Create(Aowner: TComponent);override; published property CorOnEnter: TColor read OnEnterColor write ImportaCor; property CorOnExit: TColor read OnExitColor write ExportaCor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Robinho', [TTexto]); end; procedure TTexto.ColocaCor(Sender: TObject); begin if Sender is TEdit then begin TEdit(Sender).Color := OnEnterColor; end; end; constructor TTexto.Create(Aowner: TComponent); begin inherited; OnEnterColor := clSkyBlue; OnExitColor := clWindow; OnEnter := ColocaCor; OnExit := RetiraCor; end; procedure TTexto.ExportaCor(Value: TColor); begin OnExitColor := Value; end; procedure TTexto.ImportaCor(Value: TColor); begin OnEnterColor := Value; end; procedure TTexto.RetiraCor(Sender: TObject); begin if Sender is TEdit then begin TEdit(Sender).Color := OnExitColor; end; end; end.Mas queria colocar só mais uma propriedade nele, para que automaticamente já fica com o heigth com valor 20, mas ai que vem a duvida, estou querendo fazer isso para o TComboBox, TMemo, TCurrencyEdit, TDateEdit, mas ai eu tenho que fazer um por um....não posso fazer tudo nesse mesmo package ? e como posso fazer ?
Desde já agradeço.
Editado por robinhocneLink para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.