خالی كردن رنگ Edit ها

[akar_program]

سلام دوستان كدی میخواهم تمامی edit های كه‌ در برنامه‌ هست رنگش خالی كند كه‌ رنگی پیش فرزش سفید هست من میخواهم پاكشون كنم یانی هیچ رنگی توش نباشد كدی كه‌ تمامی Edit ها درنظر بگیرد

[یوسف زالی]

سلام.
این رو تست کنید:


procedure DoAll(Container: TComponent);
var
i: integer;
begin
for i := Container.ComponentCount -1 downto 0 do
begin
if Container.Components[i] is TComponent then
DoAll(Container.Components[i] as TComponent);
if Container.Components[i] is TEdit then
(Container.Components[i] as TEdit).Color := clWhite;
end;
end;



در فراخوانی:


DoAll(Application);

[akar_program]

باسلام ممنون من اینو میخواهم ولی نمیخواهم سفید كند میخواهم رنگش باردارد یانی هیچ رنگی نباشد بشه‌ زیرش دید

[یوسف زالی]

برای این کار باید TransParentColorValue فرم رو سفید بگذارید و TransParentColor فرم رو True کنید.
اما این جوری تمام اشیای سفید روی فرم خالی می شن!