Cita:
Empezado por roman
Bueno, yo en realidad no quiero nada. Sólo estaba tratando de responderle al compañero.
|
jejeje, reconozco perfectamente tu "posición" en este caso amigo roman, disculpa si no di el mensaje adecuado
Con respecto al Caso 3 (Cruft);
Código Delphi
[-]procedure EnumControls(Control: TControl);
var Index: Integer;
begin
with TWinControl(Control) do
begin
for Index := 0 to ControlCount - 1 do
EnumControls(Controls[Index]);
SetWindowTheme(Handle, '', '');
if Visible then
begin
ShowWindow(Handle, SW_HIDE);
ShowWindow(Handle, SW_SHOW);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumControls(Self);
end;
Saludos