Componente com uma Propriedade TForm
Estou desenvolvendo um componente para trabalhar com o Terminal Service, onde, se ele estiver conectado eu faço a troca das cores do Form e de seus componetes internos.
Criei a propriedade
Até ai tudo bem, eu digito o nome do Form e ele aceita. Porem eu gostaria que ele qdo eu clica-se na propriedade Form já estive disponível para que eu selecionasse os forms existentes assim como acontece, por exemplo, com o TDataSource que qdo eu clico na propriedade DataSet ele me mostra todos que estão na tela para eu selecionar.
Obrigado pela ajuda.
Criei a propriedade
property Form : TForm read fForm write SetForm; . . procedure SetForm(aForm: TForm); begin if aForm <> nil then fForm:=aForm; end;
Até ai tudo bem, eu digito o nome do Form e ele aceita. Porem eu gostaria que ele qdo eu clica-se na propriedade Form já estive disponível para que eu selecionasse os forms existentes assim como acontece, por exemplo, com o TDataSource que qdo eu clico na propriedade DataSet ele me mostra todos que estão na tela para eu selecionar.
Obrigado pela ajuda.
Os1000r
Curtidas 0